VBA to Remove Rows

[chaddres]

I have a spreadsheet with data and I would like a macro to delete all rows of data on the spreadsheet. The number of rows can vary, but column A always has data, so I know we can count the rows in that column to know how many lines of data to delete. I do not want to delete row 1 (header row).

Thank you in advance.

 

[Joe4]

One way:

Sub MyDeleteRows()
    Dim lr As Long
    lr = Cells(Rows.Count, "A").End(xlUp).Row
    If lr > 1 Then Rows("2:" & lr).Delete
End Sub

 

[steve the fish]

That image shows a filtered result. Are you wanting to delete all rows or just visible filtered rows?