Удаление выбранных значений ячеек

'================================
    For i = LBound(arrSht) To UBound(arrSht)
        If fun_SheetExists(arrSht(i)) = True Then
            With Sheets(arrSht(i))
                r = .Cells(2, 2).End(xlDown).Row
                Set mRng = Range(.Cells(r + 1, 2), .Cells(r + 1, 3))
                mArr = Range(.Cells(2, 2), .Cells(r, 3))
                    For j = LBound(mArr, 1) To UBound(mArr, 1)
                        If mArr(j, 1) = CDate(searchTXT1) Or _
                                    mArr(j, 1) = CDate(searchTXT2) Then
                            Set mRng = Union(mRng, _
                                    Range(.Cells(j + 1, 2), .Cells(j + 1, 3)))
                        End If
                    Next j
                 mRng.Delete Shift:=xlUp
            End With
        End If
    Next 'i

Option Explicit
Option Base 1
Dim arrForDel(), arrSht(), mArr(), tmpArr()
Dim searchTXT1$, searchTXT2$, mVAR1, mVAR2, mDate, mRng
Dim i&, j&, q&, a&, b&, r&, c&, mstr$, counter
 
Sub SeachAndDelete()
'------------------------------------------------------------
'так автоматом загоним все наим. листов, где месяцы
    ReDim arrSht(12)
    For i = 1 To 12
        arrSht(i) = MonthName(i)
    Next i
    a = UBound(arrSht)
'================================
Stop
    For i = LBound(arrSht) To UBound(arrSht)
        If fun_SheetExists(arrSht(i)) = True Then
            With Sheets(arrSht(i))
                r = .Cells(2, 2).End(xlDown).Row
                Set mRng = Range(.Cells(r + 1, 2), .Cells(r + 1, 3))
                mArr = Range(.Cells(2, 2), .Cells(r, 3))
                    For j = LBound(mArr, 1) To UBound(mArr, 1)
                        If arrSht(i) <> MonthName(Month(mArr(j, 1))) Then
                            Set mRng = Union(mRng, _
                                    Range(.Cells(j + 1, 2), .Cells(j + 1, 3)))
                        End If
                    Next j
                If Not mRng Is Nothing Then
                    mRng.Delete Shift:=xlUp
                End If
            End With
        End If
    Next 'i
End Sub

Private Sub CommandButton1_Click() ' _
          или какой там у Вас номер/имя CommandButton1
   Call SeachAndDelete
End Sub

Set mRng = Range(.Cells(r + 1, 2), .Cells(r + 1, 3))

r = .Cells(2, 2).End(xlDown).Row
 Msgbox arrSht(i) & "  ----  " & r
Set mRng = Range(.Cells(r + 1, 2), .Cells(r + 1, 3))