Code 1 works fine on A, B, C, D.

With identical data in H, I, J, K code 2 errors.

What the @#$% am I overlooking?

Thanks,
Howard

Option Explicit

Sub MyDupesGone1()

With Sheets("Sheet4").Range("A1", Range("D1").End(xlDown))
.RemoveDuplicates Columns:=Array(1, 2, 3, 4), _
Header:=xlNo
End With
End Sub


Sub MyDupesGone2()

With Sheets("Sheet4").Range("H1", Range("K1").End(xlDown))
.RemoveDuplicates Columns:=Array(8, 9, 10, 11), _
Header:=xlNo
End With
End Sub