Ich hab ein Makro geschreiben, dass mir den Inhalt einer Tabelle kopieren und am Ende einer anderen Tabelle einfügen soll.
Sub Test()
Dim Bereich4 As Long
Windows("Mappe2").Activate
Sheets("Tabelle20").Select
Bereich4 = ActiveSheet.UsedRange.Rows.Count
Columns("A:A").Rows("1:" & Bereich4).Select
Selection.Copy
Windows("Abgleichmodul2.xls").Activate
Sheets("Tabelle2").Activate
Range("A65536").End(xlUp).Select
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
End Sub
An der Stelle mit den vielen XXX habe ich so meine Probleme. Ich schaffe es einfach nicht jetzt die nächste Zeile zu aktivieren und anschließend einzufügen.
Selbst nur beim Versuch einzufügen, bekomme ich immer angezeigt, dass diese Zeile nicht korrekt ist.
Kann mir jemand helfen, welchen Befehl ich verwenden muss und wie der Aufgebaut sein muss, damit ich es richtig hinschreiben kann?
MfG
Logan