HELP macro to Delete Row based on two cells

[Bob Phillips]

[vba]


Public Sub ProcessData()
Dim i As Long
Dim LastRow As Long

Application.ScreenUpdating = False

With ActiveSheet

LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
For i = LastRow To 1 Step -1

If .Cells(i, "A").Value >= 2 And IsDate(.Cells(i, "B").Value) Then

.Rows(i).delee
End If
Next i

End With

Application.ScreenUpdating = True

End Sub
[/vba]