How to change this VBA to different columns

[Romano_odK]

Good afternoon,

This code (again from Peter) works fine for my sheet. Its uses the 3rd column [Verkoopprijs] and checks the column next to it if the numbers are different. Now in the Table I have another set of columns next to each other that needs to be compared and filtered the same way, column [Kostprijs], column K (11th) and the one next to it. I can't seem to figure out how to change the code correctly. Who can help me?

Thank you for your time.

With Range("Table_Query_from_A100[Verkoopprijs]")
    .Value = Evaluate(Replace("if(#=" & .Offset(, 1).Address & ",True,#)", "#", .Address))
  End With
  With Range("Table_Query_from_A100[#All]")
    .AutoFilter Field:=3, Criteria1:="TRUE"
'    If .Columns(1).SpecialCells(xlVisible).Count > 1 Then .Offset(1).Resize(.Rows.Count - 1).EntireRow.Delete
'    .AutoFilter Field:=3
  End With