[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

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

[Debugger]

Спасибо, работает. Да черт его знает, человек работает в УЖКХ, таблица это список затрат на каждый дом в городе. Каждый файл по отдельности потом куда-то рассылают. Я не в курсе специфики их работы (и слава богу).

[Iska]

Debugger, спасибо, ясно. Я себе примерно такое и представлял.