Dim xlApp As Excel.Application
Dim xlMappe As Excel.Workbook
Dim xlBlatt As Excel.Worksheet
Dim xlZelle As Excel.Range
Dim intZeilen as Integer
Dim nZeile as Boolean
 
xlApp = New Excel.Application
xlMappe = xlApp.Workbooks.Open("[u]DEINE EXCEL-DATEI")
xlBaltt = xlMappe.Worksheets("[u]DEINE TABELLE")
xlZelle = xlBaltt.Range("A1")
 
intZeile = 0
nZeile = false
 
'Ermitteln der ersten freien Zeile
while nZeile = false
    if xlZelle.Offset(intZeile,0).Value = "" then
        nZeile = True
    else
        intZeile += 1
    End If
End While
 
'Schreiben in die erste freie Zeile
xlZelle.Offset(nzeile,0).Value = "[u]DEIN WERT"
 
xlMappe.Save
xlMappe.Close
xlApp.Quit
 
xlZelle = Nothing
xlBlatt = Nothing
xlMappe = Nothing
xlApp = Nothing