Hmm it works for me.
Sub AmgenDelDupes()
Dim sht As Worksheet
Dim LastRow As Long
Dim iCol As Integer
Set sht = Worksheets("Sheet1")
'Refresh UsedRange
Worksheets("Sheet1").UsedRange
'Find Last Row
LastRow = sht.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
ActiveSheet.Range(Cells(1, 1).Address & ":" & Cells(LastRow, 1).Address).RemoveDuplicates Columns:=1, Header:=xlYes 'col A
ActiveSheet.Range(Cells(1, 5).Address & ":" & Cells(LastRow, 5).Address).RemoveDuplicates Columns:=1, Header:=xlYes 'col E
ActiveSheet.Range(Cells(1, 10).Address & ":" & Cells(LastRow, 10).Address).RemoveDuplicates Columns:=1, Header:=xlYes 'col J
ActiveSheet.Range(Cells(1, 11).Address & ":" & Cells(LastRow, 11).Address).RemoveDuplicates Columns:=1, Header:=xlYes 'col K
End Sub
Bookmarks