Macro to clear cells in range & move up if certain cells meet criteria

Reread your requirements.

Try this:

Option Explicit

Sub GUS3R()
    Dim lr As Long
    Dim i As Long
    lr = Range("A" & Rows.Count).End(xlUp).Row
    Application.ScreenUpdating = False
    For i = lr To 2 Step -1
        If Range("G" & i) = "GUS" Or Range("G" & i) = "3R" Then
            If Range("I" & i) <> "Double Panel" Then
                Range("A" & i & ":M" & i).Delete
            End If
        End If
    Next i
    Application.ScreenUpdating = True
    MsgBox "Task Completed"
End Sub