[Iska]

Debugger, как-то так:

Код:

Option Explicit

Sub proga()
    Dim i As Long
    Dim objUsedRange As Range
    
    
    Set objUsedRange = ThisWorkbook.ActiveSheet.UsedRange
    
    For i = 2 To objUsedRange.Rows.Count
        With Application.Workbooks.Add
            Union(objUsedRange.Rows(1), objUsedRange.Rows(i)).Copy .ActiveSheet.Cells(1, 1)
            
            .SaveAs "C:\excel_files\stroka" & CStr(i) & ".xls"
            .Close
        End With
    Next
End Sub

Отчего такое странное техзадание?