Workbooks(k2).Activate
For Each ws In ThisWorkbook.Worksheets

If (ws.Name = "Обеспеченность" Or ws.Name = "Остальное" Or ws.Name = "Потребность" Or ws.Name = "ЛЗК") Then

'снятие всех фильтров на листе
On Error Resume Next
ActiveSheet.ShowAllData
On Error GoTo 0

'получения количества строк с данными
Range(Cells(9, 1), Cells(9, 1).End(xlDown)).Select
KStr = Selection.Rows.Count

Range(Cells(9, 1), Cells(KStr + 8, 200)).Copy
Workbooks(name_svod).Activate
Cells(Str1 + 3, 8).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False[/color]

End If

Next