Wer hilft?
Eigendlich sollte der Wert in der letzten leeren Zeile
stehen und nicht in der letzten Zeile.
Sollte noch eine Schleife notwendig sein sollte die Zeilenüberprüfung
von unten nach oben erfolgen. Doch wie?

~begin~
'################################################
'leider landet die Eingabe in Zeile 65536

Range(Cells(Rows.Count, 1), Cells(Rows.Count, 5)).Value = rng.Value

'################################################
~end~
Danke im voraus
Peter