Hallo zusammen

Ich füge den Inhalt eines generierten Formulars (E-Mail / Ctrl + A) in das Excel-Tabellenblatt "Input" in Zelle A1 ein. Dadurch werden alle Informationen wie Name, Adresse, Kommentar untereinander in verschiedenen Zellen eingefügt. Anschliessend werden diese Informationen mittels Makro in das Tabellenblatt "Output" überführt. Hierbei werden die neusten Einträge unter der letzten Eingabezeile (loLetzte) eingefügt.
Bsp in "Input":
Zelle A15: "Kommentar oder Nachricht"
Zelle A16: "Besten Dank für die Einladung"
Zelle A17: leer
Zelle A18: "E-Mail"
Zelle A19: "hans@muster.de"
Zelle A20: leer

Problem:
Falls die Eingabetaste (Return) im Kommentarfeld (Formular) verwendet wurde, werden mehrere Zellen untereinander ausgefüllt. Ich muss nun einerseits ermitteln, ob in mehreren Zellen ein Kommentar steht (solange untereinander die Zellen verwenden bis erstmalige leere Zelle) und den Text dieser Zellen zusammenführen, um den Kommentar in einer Zelle in "Output" zu überführen.
Bsp:
Zelle A15: "Kommentar oder Nachricht"
Zelle A16: "Besten Dank für die Einladung"
Zelle A17: "Gruss Hans"
Zelle A18: leer

Vorgehen (funktionert, falls Kommentar nur in einer Zelle):

    Sheets("Input").Select
    Cells(1, 1).Select
    Cells.Find(What:="Kommentar oder Nachricht", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
    ActiveCell.Offset(1, 0).Select
    Selection.Copy
    Sheets("Output").Select
    Cells(loLetzte, 9).Select 
    ActiveSheet.Paste

Wie kann ich den Befehl ausgestalten, dass er bei mehrzelliger Information diese Kommentare zusammenführt und ausgibt [Bsp. "Besten Dank für die Einladung Gruss Hans"].

Besten Dank - leider bin ich nicht so versiert in VBA.

Gruss
Patrick