data over til en excel fil der findes

jeg skal have ført data over i en excel fil der allerede findes:

    Dim Exl As New Excel.Application
    Dim WrkBook As Excel.Workbook
    Dim rs As DAO.Recordset

Exl.Workbooks.Open FileName:="c:\test.xls"
Set WrkBook = Exl.Workbooks.Add
WrkBook.Worksheets("Ark1").Cells(1, j).Value = rs.Fields(p).Name
     
det der sker er at den ligger de nye data i en buffer (eller fil der ikke er gemt) og så åbner den bare test.xls ved sidden af .. vil gerne have datane ført over i test.xls , Ark1