Code needed.

[omairhe]

peace all,

A code that detects if row 1 is empty, then delete all rows until there comes data in row 1.

for instance before code.

Row ... Column A
1.............blank
2.............blank
3.............blank
4.............Henry
5.............blank
6.............John


after code runs..
Row ... Column A
1.............Henry
2.............blank
3.............John

will appreciate any help...

thanks..

 

[Andrew Poulsom]

This worked for me:

Sub Test()
    With ActiveSheet
        Do While .Range("A1").Value = ""
            .Range("A1").EntireRow.Delete
        Loop
    End With
End Sub

 

[omairhe]

Yes, Working...

This worked for me:

Sub Test()
    With ActiveSheet
        Do While .Range("A1").Value = ""
            .Range("A1").EntireRow.Delete
        Loop
    End With
End Sub