need macro

[JasonLeVan]

i need a macro to find the first empty row in column a and then select all rows down from there and delete all rows

 

[cb12]

Try something like

Sub Delete_Rows()
    Dim i, n As Integer
    Dim totalrows
        totalrows = ActiveSheet.Rows.Count

        For i = 1 To totalrows
            If ActiveCell.Value = Empty Then
                n = ActiveCell.Row
                Selection.Resize(totalrows - n, 1).EntireRow.Delete
                Exit Sub
            End If
            ActiveCell.Offset(1, 0).Select
        Next i

End Sub

note it starts from the current active cell, if this isn't appropriate you'll to need to amend as.