VBA - Remove Duplicate rows from an entire worksheet

[andreys]

I have found a solution:

Sub RemoveDuplicates()
    Dim ws As Worksheet
    Dim rng As Range
    Dim n As Long
    Dim i As Long
    Set ws = ActiveSheet
    Set rng = ws.UsedRange
    n = rng.Columns.Count
    ReDim varArray(0 To n - 1)
    For i = 0 To n - 1
        varArray(i) = i + 1
    Next i
    ws.UsedRange.RemoveDuplicates Columns:=(varArray), Header:=xlYes
End Sub