On Thursday, November 27, 2014 1:30:14 AM UTC-6, L. Howard wrote:
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

Did not test but wonder if this would not work using a1 for last row

With Sheets("Sheet4").Range("A1", Range("a1").End(xlDown))
.RemoveDuplicates Columns:=Array(1,2,3,4,8,9,10,11, _
Header:=xlNo
End With