VBA code error on duplication

I am getting an error on the following code to remove dups.
The error is on Range("A1").CurrentRegion.RemoveDuplicates Columns:=(varColArray), Header:=xlNo

I am attaching sample. Can anyone help?
The code should remove lines where ALL columns are the same.
Thanks!

Sub removedups()


Dim varColArray As Variant
Dim intCol As Integer

ReDim varColArray(0 To ActiveSheet.UsedRange.Columns.Count - 1)

For intCol = 1 To ActiveSheet.UsedRange.Columns.Count
    varColArray(intCol - 1) = intCol
Next

Range("A1").CurrentRegion.RemoveDuplicates Columns:=(varColArray), Header:=xlNo
End Sub

Select allOpen in new window

sample.xlsm