Office: Daten in erster leerer Zeile einfügen

Ich muss leider etwas platt fragen: Warum funktioniert dieses Makro nicht? Bzw warum sagt er mir "Die Paste-Special Methode des Range Objektes konnte nicht ausgeführt werden"

Sub auswählen()
Sheets("Daten").Activate
anz = ActiveSheet.Range("A100").End(xlUp).Row
Range("A" & anz + 1).Select
Application.CommandBars("Office Clipboard").Visible = False
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub

Vorgeschichte: Ich habe ein gewissen Datensatz mit ast dem gleichen Makro kopiert, nur da wusste er explizit in welche Zelle er einfügen soll. (A2)

Ich danke im Vorraus für die Hilfe, Tipps und Hinweise
Alex

 

Hallo!

Wenn die Paste-Methode nicht funktioniert, dann könnte das am Inhalt der Zwischenablage liegen. Das ist per Fern-Diagnose schwer zu beurteilen.

PS: Dein gepostetes Makro geht eigentlich auch als Einzeiler:
Sheets("Daten").Range("A100").End(xlUp).Offset(1, 0).Paste