Rijen met criterium verwijderen middels VBA

Sub B06_Dubbelingen_VB()                                        'Dubbelingen markeren
02   Application.ScreenUpdating = False
04
06   ActiveWorkbook.Worksheets("Bank").Select
08   Range("AJ4").Copy Destination:=Range("AJ6:AJ" & [A1200].End(xlUp).Row)
10
12   'Dubbelingen verwijderen
14   ActiveWorkbook.Worksheets("Bank").Select
16   With Sheets("Bank")
18      For i = .UsedRange.Rows.Count To 1 Step -1
20         If IsNumeric(Left(.Cells(i, 36), 36)) Then             'de 36 staat voor de 36e kolom
22            If (.Cells(i, 36).Value) = 2 Then .Cells(i, 36).EntireRow.Delete
24         End If
26      Next
28   End With
30
32   Range("b3:b" & [A1200].End(xlUp).Row).Name = "Cellenbereik"
34   For Each cell In Range("Cellenbereik")
36      If cell = "" Then cell.Offset(, 1) = cell.Offset(, 5).Value
38   Next
40
42       Call Naar_Laatste_Regel
End Sub

Sub jvr()
 With Sheets("Bank").Range("A5", Sheets("Bank").Cells(Rows.Count, 1).End(xlUp)).Resize(, 36)
   .AutoFilter 36, 2
   .Offset(1).EntireRow.Delete
   .AutoFilter
 End With
End Sub

Sub jvr()
 With Sheets("Bank").Range("A5:AJ" & Sheets("Bank").Cells(Rows.Count, 1).End(xlUp).Row)
   .AutoFilter 36, 2
    If .Offset(1).Resize(, 1).SpecialCells(12).Count > 1 Then .Offset(1).Resize(, 1).SpecialCells(2).EntireRow.Delete
   .AutoFilter
 End With
End Sub