Zelle in nächste freie Zeile einfügen

[JayJay]

Hey, 

kurzes Dankeschön an euch, mit euren Tipps habe ich jetzt den Fehler gefunden. 
Jetzt läuft es Einwandfrei. 

Vielen Dank :D

[Käpt'n Blaubär]

Hallo,

das ist aber nicht die Antwort auf Deine Frage

Das funktioniert soweit auch, jedoch kopiere ich die Informationen immer wieder in die selbe Zeile. 
Bei einer neuen Eingaben sollen die Informationen nun in die nächste freie Zeile kopiert werden. 
Dass bekomme ich leider nicht hin. 

und was Du jetzt an Lösung gefunden zu haben glaubst, tut das auch nicht

Sub IngLetzteZeile()
  letzteZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
  MsgBox letzteZeile
End Sub

die erste freie Zeile bekommst Du nämlich so

erstefreieZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1

und hättest Du Dich verständlicher ausgedrückt, dann wäre das Ganze auch stressfreier abgelaufen