NewBook = ""

Path = ThisWorkbook.Path

Sheets("DANNIE").Select

For i = 2 To 100000

If Cells(i, 1).Value = "" Then
i = 100000
Exit For
End If

Name_file = Path & "\" & Sheets("DANNIE").Cells(i, 2).Value & ".xls"

Sheets("INFO-BLOCK").Select

Range("streetname").Value = Sheets("DANNIE").Cells(i, 2).Value & " " & _
Sheets("DANNIE").Cells(i, 4).Value
Range("opora").Value = Sheets("DANNIE").Cells(i, 12).Value
Range("kronshtein").Value = Sheets("DANNIE").Cells(i, 13).Value
Range("kronshtein2").Value = Sheets("DANNIE").Cells(i, 14).Value
Range("Master").Value = Sheets("DANNIE").Cells(i, 3).Value
Range("svet1").Value = Sheets("DANNIE").Cells(i, 6).Value
Range("svet2").Value = Sheets("DANNIE").Cells(i, 7).Value
Range("SIP").Value = Sheets("DANNIE").Cells(i, 25).Value
Range("SHKAF").Value = Sheets("DANNIE").Cells(i, 27).Value

Cells.Select
Selection.Copy

If NewBook = "" Then
Workbooks.Add
NewBook = ActiveWorkbook.Name
Else
Workbooks(NewBook).Activate
Cells(1, 1).Select
End If

Application.DisplayAlerts = False
ActiveSheet.Paste
Application.CutCopyMode = False

ActiveWorkbook.SaveAs Filename:= _
Name_file, FileFormat:=xlExcel8, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
NewBook = ActiveWorkbook.Name
Application.DisplayAlerts = True

Workbooks("ХХХХХХ.xlsm").Activate
Sheets("DANNIE").Select

Next i

Workbooks(NewBook).Close