Text1 to excel

[wilder1926]

Hello everybody,

I need your help again on this code:

Dim xlExcel     As New Excel.Application
    
    xlExcel.ActiveWorkbook.Sheets(1).Cells(2, 4).Value = Text1.Text
    xlExcel.Application.DisplayAlerts = False
    xlExcel.ActiveWorkbook.SaveAs "C:\Documents and Settings\test.xls"
    xlExcel.ActiveWorkbook.Close
    xlExcel.Quit
    Set xlExcel = Nothing

I would like the code to found in column 4 the last value insert, and right down the new value in the first empty cell just under.

How can I do this please?

Thanks again.