ayuda codigo visual basic 6

[kakashi20]

hola tengo este simple codigo para insertar una fila en una excel

************************
Dim Appl2 As Excel.Application 'Declaracion de la aplicacion en excel
Dim Libro2 As Excel.Workbook 'Declaracion del libro de excel
Dim Hoja2 As Excel.Worksheet 'Declaracion de la hoja de excel
Set Appl2 = New Excel.Application
Set Libro2 = Appl2.Workbooks.Open(App.Path & "\formato - BIANUAL.xls")

Appl2.DisplayAlerts = False

Set Hoja2 = Libro2.Worksheets(1)




Hoja2.Activate



Hoja2.Rows(1).Select 'pone fila blanco
Selection.EntireRow.Insert




Libro2.SaveAs FileName:= _
App.Path & "\CCT_Bianual.xls", FileFormat:= _
xlText, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False


Libro2.Close



MsgBox "Se ha generado el CCT Bianual"


**********************

pero no me inserta la fila, solo la inserta cuando reemplazo el codigo de

Libro2.SaveAs FileName:= _
App.Path & "\CCT_Bianual.xls", FileFormat:= _
xlText, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

por el de

Libro2.save

***************************

no se que pasa, si alguien me pudiese ayudar se lo agradeceria