How to delete empty rows

[Raaz74]

Thanks, i will install QM on my personal laptop and put the exe file on work laptop. I will be copying the same code mentioned below in my QM, please correct if this code looks wrong.

;/exe 1
ExcelSheet es.Init ;;connect to Excel

ARRAY(int) ad ;;rows to delete
ARRAY(str) ar ;;row cells
int i n row

;for each row in used range
row=es.ws.UsedRange.Row
foreach ar "" FE_ExcelRow
,;is empty?
,for(i 0 ar.len) if(ar[i].len) break
,if(i=ar.len) ad[]=row ;;empty
,row+1

;delete starting from bottom
for i ad.len-1 -1 -1
,Excel.Range r=es.ws.Rows.Item(ad[i])
,r.Delete(Excel.xlUp)

-Raaz