Sub TABL_SLIYNIE()
For Each u In Range("b3:u12") 'проходим циклом по ячейкам "сводной" таблицы
u_1 = u.Row 'строка очередной ячейки
u_2 = u.Column 'столбец очередной ячейки
u_3 = (u_2 Mod 2) + 1 '(остаток № столбца от деления на 2) + 1 = № =аналог =ОСТАТ(СТОЛБЕЦ();2)+1
u_4 = Application.Round((u_2 - 1) / 2, 0) 'соот. № столбца "сводной" №№ Таблиц_1_2 _=аналог =ОКРУГЛ((СТОЛБЕЦ()-1)/2;0)
u_5 = 12 + u_3 * 11 - u_4 'кол-во столбцом до соот. ячейки Таблиц_1_2 _=аналог =12+(ОСТАТ(СТОЛБЕЦ();2)+1)*11-ОКРУГЛ((СТОЛБЕЦ()-1)/2;0)
u_6 = u.Offset(0, u_5).DisplayFormat.Interior.Color 'определяем цвет заливки ячейки смещенной на 0 строк и соот.(выше) столбцов
u.Interior.Color = u_6 'заливаем ячейку
Next
End Sub