Something like this?
(Change as per requirement)
Private oNewApp As Excel.Application
Private Sub Command1_Click()
Dim oWorkBook As Excel.Workbook
oNewApp.Visible = True
Set oWorkBook = oNewApp.Workbooks.Open("D:\My Documents\Book1.xls")
oWorkBook.Sheets("Sheet1").Rows("10:10").Select
Selection.Insert Shift:=xlDown
End Sub
Private Sub Form_Load()
Set oNewApp = New Excel.Application
End Sub