ich habe folgendes Probleme ich habe den unter aufgeführten Code, der leider in der vierten Zeile einen Fehler anzeigt.
Ich möchte ganz gerne aus einer Tabelle Zahlen kopieren und diese immer direkt unter den anderen zahlen einfügen.
Sub kopieren()
endup = Worksheets(2).Range("A65536").End(xlUp).Row
Worksheets(1).Range("A1:C200").Copy
4. Worksheets(2).Range("A " & endup & "").Activate
ActiveSheet.Paste
End Sub
Danke für die Hilfe marcus