dedupe listobject Excel VBA

Sub DeDupeListObject(lo As ListObject)

' deduplicate rows considering all columns
    Dim arr As Variant
    Dim i As Integer
    ReDim arr(0 To lo.ListColumns.Count - 1)

    For i = 0 To lo.ListColumns.Count - 1
        arr(i) = i + 1
    Next i

    lo.Range.RemoveDuplicates Columns:=(arr), Header:=xlYes

End Sub