I am new to VBA and am getting this error, what am I doing wrong?
I’m trying to delete a range of cells that fit into certain criterias

Sub DeleteIF()
    j = 9
        Do Until IsEmpty(Cells(j, 8))
        Set Range1 = Range("H" & j)
        Set Range2 = Range("N" & j)
        Range(Range1, Range2).Select
        If Range("H" & j).Range.Interior.Color = RGB(0, 210, 0) And Range("N" & j).Range.Interior.Color = RGB(0, 204, 255) And _
        Range("M" & j).Value <= 2 Then
            Selection.Delete Shift:=x1Up
        ElseIf Range("H" & j).Range.Interior.Color = RGB(255, 255, 255) And Range("N" & j).Range.Interior.Color = RGB(0, 204, 255) And _
        Range("M" & j).Value <= 5 Then
            Selection.Delete Shift:=x1Up
        ElseIf Range("H" & j).Range.Interior.Color = RGB(255, 255, 255) And Range("N" & j).Range.Interior.Color = RGB(255, 255, 255) And _
        Range("M" & j).Value <= 10 Then
            Selection.Delete Shift:=x1Up
        End If
   j = j + 1
   Loop

End Sub