Dim oXL

Set oXL = WScript.CreateObject("Excel.Application")

oXL.Visible = false            'скрыть Excel 

oXL.WorkBooks.Add("C:\Test\test.xls") 'добавить существующую книгу - описание колонок  

' ищем первую не заполненную строку 
' левая верхняя ячейка имеет координаты  1 , 1  в MS Office и  0 , 0  в Open Office
Row =  1                                            ' с какой строки начинаем поиск
Col = 1                                            ' какую колонку проверять

Do While oXL.Cells(Row, Col).Value >  0   ' проверяем ячейку строки  
  Row = Row + 1
Loop

a = oXL.Cells(Row, 1).Value                 ' читать значение ячейки  1  в строке Row

oXL.Cells(Row,  2 ).Value = "text"           ' записать строковые данные в ячейку 2 в строке Row
oXL.Cells(Row, 3).Value = 10               ' записать числовые данные в ячейку  3  в строке Row

' выделение ячеек и форматирование выделенных
oXL.ActiveSheet.Range("A3:A100").Select
oXL.Selection.NumberFormat = "#,##0.00"

oXL.Visible = true                              ' показать Excel 

'oXL.WorkBooks.Close