Set WB = ActiveWorkbook

' 1 Определяем левый верхний угол сводной таблицы на листе Global B2C


WB.Activate
Set pvt = Worksheets("Global B2C CSAT").PivotTables(1)
Set rng = pvt.TableRange1
Startrow = rng.Cells(1, 1).Row + 2
Startcolumn = rng.Cells(1, 1).Column

'Копируем в файл CHECK названия текущих 6-ти месяцев

WB.Worksheets("Global B2C CSAT").Cells(Startrow, Startcolumn).Resize(6, 1).Copy
ThisWorkbook.Worksheets(1).Cells(3, 1).PasteSpecial Paste:=xlPasteValues


' На листе Check суммируем кол-во инцидентов B2C

WB.Activate
For j = 3 To 8
For Each ws In Worksheets
If ws.Name Like "*B2C*" And ws.Name <> "Global B2C CSAT" Then

'Определяем Range текущей сводной таблицы

Set pvt = ws.PivotTables(1)
Set rng = pvt.TableRange1

K = K + Application.WorksheetFunction.VLookup(ThisWorkbook.Worksheets("CHECK").Cells(j, 1).Value, WB.ws.rng, 2, 0)
MsgBox ActiveWorkbook.Name

End If
Next ws
ThisWorkbook.Worksheets("CHECK").Cells(j, 1).Value = K
K = 0

Next j