Dublikate Entfernen per Excel Makro VBA

Hallo,

ich habe eine Excel Liste mit variabler Zeilenanzahl und 33 Spalten. Diese Liste bekomme ich monatlich. Leider gibt es in der Liste identische Werte, die sich nur
durch die Spalte lfd. Nr. unterscheiden. Diese kann ich ganz wunderbar mit dem Button Duplikate entfernen aussortieren. Da ich aber noch andere Sachen in der Liste
per Makro mache, würde ich dies auch gerne Einbinden. Leider funktioniert dies nicht. Folgenden Code habe ich per Makro Recorder aufgezeichnet.

Sub Makro4()
'
' Makro4 Makro
'

'
ActiveSheet.Range("Tabelle1[#Alle]").RemoveDuplicates Columns:=Array(1, 2, 3, 4, _
5, 6, 7, 8, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33 _
), Header:=xlYes
End Sub

Die Spalte 9 wird nicht verglichen, da sie die "lfd. Nr." enthält. Beim ausführen des Scripts bekomme ich sofort
"Laufzeitfehler '1004': Anwendungs- oder objektdefinierter Fehler.

Kann mir jemand helfen ? Der Code wurde doch so 1 zu 1 von Excel aufgezeichnet.

Sub RemoveDuplicates()
    ActiveSheet.Range("A:AG").RemoveDuplicates Columns:=Array(1,2,3,4,5,6,7,8,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33), Header:=xlYes  
End Sub