Macro to delete rows that DO NOT contain specific word

Open VB Editor, create a new module and dump this into it.
Then it should appear in your Macros section on the spreadsheet.
Make sure you on the sheet you want this to run on.

Sub RemoveEmptys
    For i = 1 to 1000
        if ActiveSheet.Range("P" & i).value <> "TINVGARS" then rows(i & ":" & i).delete Shift:=xlUp

        'If you have a column what always has data in a column, then uncomment the below (remove the comma) and change A to the column letter
        'if ActiveSheet.Range("A" & i).value = "" then exit for
    next i
End Sub

Originally Posted by AntrobusJ

Open VB Editor, create a new module and dump this into it.
Then it should appear in your Macros section on the spreadsheet.
Make sure you on the sheet you want this to run on.

Sub RemoveEmptys
    For i = 1 to 1000
        if ActiveSheet.Range("P" & i).value <> "TINVGARS" then rows(i & ":" & i).delete Shift:=xlUp

        'If you have a column what always has data in a column, then uncomment the below (remove the comma) and change A to the column letter
        'if ActiveSheet.Range("A" & i).value = "" then exit for
    next i
End Sub

I had amended it. Sean's is a better solution if you want it to automatically detect the last row, if you want to specify what rows to go up to then use mine and change the 1000 to how many rows you want it to do.

you can try this also..

just another thought.

Sub del()


Range("A1").Select
     Sheets("Sheet1").Range("A1").AutoFilter _
    Field:=16, _
    Criteria1:="<>" & "TINVGARS", visibleDropDown:=False
        Application.DisplayAlerts = False
    ActiveSheet.Range("a3").CurrentRegion.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete Application.DisplayAlerts = True
    If ActiveSheet.AutoFilterMode = True Then
    
Range("a1").AutoFilter
Else
End If
End Sub

this checks from last row up

Sub test()
    Dim x As Long, lastrow As Long
    lastrow = Cells(Rows.Count, 1).End(xlUp).Row
    For x = lastrow To 1 Step -1
        If Range("P" & x).Value  <> "TINVGARS" Then
            Rows(x).Delete
        End If
    Next x
End Sub

Your welcome, please mark your thread as solved and give Sean reputation
(read Sean's Signature)