Spalte anspringen

ich habe folgendes Problem. Mit folgendem Code wird die erste leere Spalte gefunden, wie wird die erste freie Zelle in der gefundenen Spalte angesprungen um dorthin Daten zu kopieren?

Danke für die Hilfe
Peter Dziallas

Private Sub Workbook_Open()

spalte = 1
While Trim(Cells(1, spalte)) <> ""
spalte = spalte + 2
Wend
'MsgBox "freie Spalte: " & spalte - 1
'hier müßte jetzt rein, gehe in Zeile 1 dieser Spalte

End Sub