Excel - Eliminar filas

Private Sub Worksheet_Activate()

Range("B4:B140").Select

    Selection.FormatConditions.Add Type:=xlTextString, String:= _

        "Este estándar de aprendizaje no ha sido seleccionado para evaluar este trimestre" _

        , TextOperator:=xlContains

    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

    With Selection.FormatConditions(1).Interior

        .Pattern = xlGray25

        .PatternColor = 12611584

        .ColorIndex = xlAutomatic

        .PatternTintAndShade = 0

    End With

    Selection.FormatConditions(1).StopIfTrue = False

    Rows("4:140").Select

    Selection.RowHeight = 26

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

Public Sub DeleteParams()

Dim i As Long, n As Long

Dim strSheet As String, strParam As String, strRangeParam As String

On Error GoTo x

'vars

strSheet = "MAT1"

strParam = "Este estándar de aprendizaje no ha sido seleccionado para evaluar este trimestre"

n = WorksheetFunction.CountA(Sheets(strSheet).Range("A:A"))

strRangeParam = Empty

'app control

Application.ScreenUpdating = False

'explore data

For i = 1 To n

    If Sheets(strSheet).Cells(i, 2) = strParam Then

        'get params range

        If strRangeParam = Empty Then

        strRangeParam = CStr(i) & ":" & CStr(i)

        Else

        strRangeParam = strRangeParam & "," & CStr(i) & ":" & CStr(i)

        End If

    End If

Next i

'delete params range

Sheets(strSheet).Range(strRangeParam).Delete Shift:=xlUp

'app control

Application.ScreenUpdating = True

'final message

MsgBox "Proceso finalizado.", vbInformation, "Mensaje"

Exit Sub

x:

MsgBox "Error : " & Err.Description, vbCritical, "Mensaje"

End Sub