Range

Sub SletRækkerUnderTekst()
    Dim SR As Integer, ST As Integer
    SR = Range("A65536").End(xlUp).Row  ' finder den sidste række med data i kolonne A
    Application.ScreenUpdating = False    ' slår skærmopdateringen fra
    For ST = SR To 1 Step -1  ' fra den sidste række , der er fundet i kolonne A til nr.1
        If Cells(ST, "A") = "Test" Then    ' hvis værdien er Test
        Rows(ST + 1 & ":" & SR).EntireRow.Delete    ' sletter rækker under "fund"
            Exit For    ' stopper efter første "fund"
        End If
    Next ST
    Application.ScreenUpdating = True    ' slår skærmopdateringen til igen
End Sub

Sub test()
Dim kolA As Range
Dim cellA As Range

Set kolA = Range("a:a")

For Each cellA In kolA
cellA.Select
  If cellA.Value = "Test" Then
    Set sletRange = Range(ActiveCell.Offset(1, 0).Address & ":" & ActiveCell.Offset(1, 0).End(xlDown).Address)
    Exit For
  End If
Next cellA
  sletRange.EntireRow.Delete
End Sub