VBA overlapping error

[VbaHell]

Hello all

I keep getting an error on this code and I can't figure out why

"It's error 1004 Cannot use that command on overlapping selection"

The code filters on column "N" and only shows lines not equal to "C2" on sheet 5, this is working ok
But when it comes to delete the visible lines I get the error code

 Sheets("Data").Select
    Range("A1").Select
    
    With Sheets("Data")
      lr = .Range("N" & Rows.Count).End(xlUp).Row
      If .AutoFilterMode Then .AutoFilterMode = False
      Intersect(.UsedRange, .Range("N:N")).AutoFilter 1, "<>" & Sheet5.Range("C2").Value
     [I][B] .Range("A2:AB" & lr).SpecialCells(xlVisible).EntireRow.Delete[/B][/I]
      .AutoFilterMode = False
   End With

 

[Ramballah]

End If
End With
End Sub

Im missing an End If in your code. the end sub is only if you started with Sub but im not seeing it so idk. but you should close your if

 

[BarryL]

shouldn't it be end if and not and with?

no, the If finishes on one line.
@VbaHell I used it on a sample set of data and it worked ok for me. Any Merged cells by any chance?

 

[Fluff]

Also do you have any hidden columns?