Sub Svod_grup()
Application.ScreenUpdating = 0
cal_ = Application.Calculation
Application.Calculation = xlCalculationManual
With Sheets("svod")
Range(.Range("A2"), .Range("A2").SpecialCells(xlLastCell)).Resize(,15).ClearContents
End With
For i = 1 To Sheets.Count
sn_ = Sheets(i).Name
If sn_ <> "SVOD" Then
If Not LCase(sn_) Like "удаленка*" Then
r1_ = WorksheetFunction.Max(2, Sheets("SVOD").Range("A" & Rows.Count).End(xlUp).Row)
If r1_ > 2 Then r1_ = r1_ + 4
r11_ = Sheets(i).Range("A" & Rows.Count).End(xlUp).Row
With Sheets("SVOD").Range("A" & r1_).Resize(r11_ - 1, 15)
.Value = Sheets(i).Name
.Offset(, 1).Value = Sheets(i).Range("A2").Resize(r11_ - 1, 15).Value
End With
End If
End If
Next i
Application.Calculation = cal_
Application.ScreenUpdating = 1
End Sub