Sub Delete_Rows()
Dim Mycell As Range
Dim Tcell As Range
For Each Tcell In Range("A:A")
If Tcell.Value = "End of report" Then
Set Mycell = Tcell
End If
Next Tcell
Do Until Mycell.Offset(1).Value = ""
Mycell.Offset(1).EntireRow.Delete
Loop
End Sub
Sub Delete_Rows()
Dim Mycell As Range
With Range("A:A")
Set Mycell = .Find(What:="End of report", After:=Range("A1"), LookIn:= _
xlFormulas)
End With
Do Until Mycell.Offset(1).Value = ""
Mycell.Offset(1).EntireRow.Delete
Loop
End Sub
Sub Delete_Rows()
Dim Mycell As Range
Dim Tcell As Range
With Range("A:A")
Set Mycell = .Find(What:="End of report", After:=Range("A1"), LookIn:= _
xlFormulas)
End With
For Each Tcell In Range("mycell:A65536")
If Tcell.Value <> "" Then
Tcell.EntireRow.ClearContents
End If
Next Tcell
End Sub