Makro: Hvordan finder jeg den næste tomme celle i kolonne A og sletter 6 rækker ovenover?

Sub Slet_6_sidste_rækker()
    Dim i As Integer
    For i = 1 To 6
        Range("A" & Cells.Rows.Count).End(xlUp).Delete Shift:=xlUp
    Next
End Sub

Sub Slet_sidste_rækker()
    Dim Antal_Rækker As Integer

    On Error GoTo fejl:

    Antal_Rækker = InputBox("Tast et tal", "Angiv tal")

    Dim i As Integer
    For i = 1 To Antal_Rækker
        Range("A" & Cells.Rows.Count).End(xlUp).EntireRow.Delete Shift:=xlUp
    Next
   
fejl:
    If Err.Number = 13 Then
        MsgBox "Du skal indtaste et tal - prøv igen"
    End If
End Sub