РЮАКХЖЮ"

рЮАКХЖЮ"

n = Worksheets("БазаДанных").Range("A2")

.CurrentRegion.Rows.Count

' Определение диапазона, по которому будет строиться

' сводная таблица (Списки) и

где она будет расположена (Назначение).

' Эти диапазоны записываются в виде строковых выражений

Списки = "БазаДанных!R1C1:R" & CStr(n) & "С8"

Назначение = "[" & ИмяКниги & "]Сводная