Visual Basic - Conservar formato de excel

Hola:

Tengo un problemilla con un fichero excel, y es que tengo que abrirlo escribir en el y salvarlo. Lo que me pasa que lo abro escribo y guardo, pero no me conserva el formato del fichero, el fichero tiene una cabecera y tengo que empezar a escribir apartir de una linea. Lo escribe bien y en las posiciones que quiero pero me deja el fichero excel solo con lo que he escrito y todo lo demas que tengo en el fichero desaparece. si alguien es tan amable de indicarme lo que tengo que hacer para conservar el formato del fichero. Muchas gracias.

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Sheets.Add

Set xlBook = Workbooks.Open(FileName:="C:\ficehro.xls")

xlSheet.Cells(10, 1).Value = CInt(Text1.Text)
xlSheet.Cells(10, 2).Value = CInt(Text2.Text)

xlSheet.SaveAs "C:\fichero.xls"

xlBook.Close
xlApp.Quit

Set xlApp = Nothing
Set xlBook = Nothing
Set xlSheet = Nothing

Me respondo a mi mismo, buscando en el foro he enciontrao un codihgo que me hace lo que quiere, gracias atodos lo que habeis prestado vuestra atencion.

Dim libro As EXCEL.Workbook
Dim hoja As EXCEL.Worksheet
Set libro = GetObject("RUTA FICHERO")
Set hoja = libro.Worksheets("NOMBRE DE LA HOJA")
hoja.Range("A10").Value = 1
hoja.Range("A11").Value = 110
hoja.Range("A12").Value = 333
libro.Save
libro.Close
Set libro = Nothing

no se parece lo mismo :) pero conserva el formato del excel...