mit makro markierte Zellen in die erste freie Zeile in Spalte A kopieren

Guten Abend,
versuche ohne Erfolg per Makro eine Anzahl von Zellen (BA1:BH1) in die erste freie Zeile A— zu kopieren.
Wenn ich im Makro die Zielzelle z.B. BA6 eingebe funktioniert der Kopier-Vorgang problemlos.
Hier ein Auszug des Kopiervorgangs im Makro :

dispatcher.executeDispatch(document, ".uno:InsertContents", "", 0, args54())

rem ----------------------------------------------------------------------
dim args55(0) as new com.sun.star.beans.PropertyValue
args55(0).Name = "ToPoint"
args55(0).Value = "$BA$6"

dispatcher.executeDispatch(document, “.uno:GoToCell”, “”, 0, args55())

rem
---------------------------------------------------------------------- dispatcher.executeDispatch(document,
“.uno:ClearContents”, “”, 0, Array())

rem
---------------------------------------------------------------------- dispatcher.executeDispatch(document,
“.uno:ClearContents”, “”, 0, Array())

end sub

Wie kann ich nun in args55(0) die Eingabe der ersten freien Zeile in Spalte A ermittlen und einfügen ??
Würde mich für eine Unterstützung sehr freuen.
Liebe Grüße
Peter