Delete all row except those tat start with specific text

[tonywatsonhelp]

Hi Everone,
I'd like a macro that could delete every row in the active worksheet except the ones that start with the text "Start Date" , "End Date" "Time" and "Money out"

so i end up with just a small list of these rows?
any idea how i can do this?

Tony

 

[tlowry]

This does what I think you asked for:

Sub DeleteRows()
    Dim istr, lr
    lr = Cells(Rows.Count, 1).End(xlUp).Row
    For istr = 1 To lr
        Cells(istr, 1) = SaveOrNot(Cells(istr, 1).Text)
    Next
    On Local Error Resume Next
    Range("A1:A" & lr).Cells. _
        SpecialCells(xlCellTypeConstants, xlErrors).EntireRow.Delete
End Sub
Function SaveOrNot(sCheck)
    SaveOrNot = sCheck
    If InStr(sCheck, "Start Date") = 1 Then Exit Function
    If InStr(sCheck, "End Date") = 1 Then Exit Function
    If InStr(sCheck, "Time") = 1 Then Exit Function
    If InStr(sCheck, "Money out") = 1 Then Exit Function
    SaveOrNot = "#N/A"
End Function

 

[tonywatsonhelp]

Thank you tlowry, this looks great, i'll give it a test now.
Thank you very much for your help.

Tony