Macro that deletes rows from cell containing End to end of data.

[Guest]

MS OS XP:
Excel 2000:

Need a macro that deletes all rows from the end of data up to a cell in
Colum A that contains the word End.

Example: If cell A(150) = “End†Then
Delete all rows from the end of data up to and including row 150.

Thanks in advanced,

 

[Guest]

Sub DeleteRowsAfterWordEnd()

Dim iRow As Long
Dim iCol As Long

iRow = 1
iCol = 1

While Cells(iRow, iCol) <> "End"
iRow = iRow + 1
If iRow > 65536 Then
Exit Sub
End If
Wend

Rows(Format(iRow, "0") & ":65536").Delete

End Sub

 

[Don Guillett]

try this simple ditty
sub delrows()
fr=columns(1).find("End").row
lr=cells(rows.count,"a").end(xlup).row
rows(fr & ":" & lr).delete
end sub