Delete all rows above 1st row containing text 1

[jdttek]

I am trying to automatically clean up formatting on a downloaded spreadsheet. Sometimes there are 3-4 blank lines before the 1st row of data. I need to automatically select and delete those rows so that Data starts on Row 1. Any sugested code pls? Number of blank rows varies, so it needs to by dynamic to find actual 1st non-blank row, select rows above and delete them. Thanks

JDTTEK

 

[xlbo]

Hi jdttek
this should do the trick:

Sub CleanRows()
With Activesheet
fRow = .range("A1&quot.end(xldown).row
.rows("1:" & fRow-1).entirerow.delete
end with
end sub Rgds
~Geoff~

 

[jdttek]

Thanks Geoff

I forgot the Row-1