Hi everyone,

Yesterday, Norman gave mi the solution to my subject stated the above.

Columns("A:A").SpecialCells(xlBlanks).EntireRow.Delete

The writings stated the above works... but I am facing another problem which
is if when worksheet happens to be empty with no datas, so how am I gonna
continue from there?? cos the writings above only works if there is datas in
the worksheet.

AJ