Macro needed to delete any empty row in table from top

[bsnow]

Hi

I'm trying to come up with a macro for a button to be able to delete rows from a table that are empty, starting from the top (most recent).

I have a macro that will add new rows at the top (at Row 2), but I need one to delete rows from the top (Row 2), too.

The macro I have currently is:

Sub DelLR()

Dim x As Long

With Sheets("Sheet1")
'Assumes last row of data found in column A (1)
x = .Cells(.Rows.Count, 1).End(xlUp).Row
.Cells(x, 1).EntireRow.Delete
End With

End Sub

I'd also like to tweak the macro so that it won't allow the user to delete any rows that are already filled in (so only deletes empty rows) from the top downwards.

Thanks guys!

 

[BSALV]

there is no other data at the LHS or at the RHS of your table ?
from A2 to the first filled A-cell minus 1

Sub DelLR()
     Dim c     As Range

     With Sheets("Sheet1")
          If .Cells(2, "a") = "" Then                           'A2 is empty
               Set c = .Range(.Range("A2"), .Range("A2").End(xlDown).Offset(-1))     'range from A2 to the 1st not empty A-cell and return 1 row
               MsgBox c.Address                                 'just tell the range
               c.EntireRow.Delete                               'delete
          End If
     End With
End Sub