Rows( "номер строки перед которой добавить" ).Insert Shift:=xlDown

 ' Объявление объектов Excel
            Dim xl As New Excel.Application
            Dim xl_wb As New Excel.Workbook
            Dim xl_sh As New Excel.Worksheet
            ' Присвоение значений объектам Excel
            Set xl = CreateObject( "Excel.Application" )
            Set xl_wb = xl.Workbooks.Open( "имя файла" )
            Set xl_sh = xl_wb.Worksheets( 1 )
            ' Обращение к объектам
            xl_sh.Rows("номер строки перед которой добавить").Insert Shift:=xlDown
            ' завершение работы
            xl_wb.Save 
            xl.Quit
        
            Set xl_sh = Nothing
            Set xl_wb = Nothing
            Set xl = Nothing