РЮАКХЖЮ"
рЮАКХЖЮ"
n = Worksheets("БазаДанных").Range("A2")
.CurrentRegion.Rows.Count
'
'
' Определение диапазона, по которому будет строиться
' сводная таблица (Списки) и
где она будет расположена (Назначение).
' Эти диапазоны записываются в виде строковых выражений
Списки = "БазаДанных!R1C1:R" & CStr(n) & "С8"
Назначение = "[" & ИмяКниги & "]Сводная
