'Note: This code requires a reference to the Excel object model
Dim xlApp As New Excel.Application
Dim xlWkBk As Excel.Workbook
Dim StrWkbk As String, StrWkSht As String, i As Long
StrWkbk = "workbook path & filename"
' eg: StrWkbk = "C:\Users\tpcervelo\Documents\Test.xls"
StrWkSht = "Sheet Name"
Set xlWkBk = xlApp.Workbooks.Open(FileName:=StrWkbk, AddtoMRU:=False)
With xlWkBk
  With .Worksheets(StrWkSht)
  i = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
    .Cells(i, 1).Value = "word field 1"
    .Cells(i, 2).Value = "word field 2"
    .Cells(i, 3).Value = "word field 3"
    .Cells(i, 4).Value = "word field 4"
    .Cells(i, 5).Value = "word field 5"
    .Cells(i, 6).Value = "word field 6"
    .Cells(i, 7).Value = "word field 7"
    .Cells(i, 8).Value = "word field 8"
  End With
  .Save
  .Close
End With
xlApp.Quit
Set xlWkBk = Nothing: Set xlApp = Nothing