С помощью макросов оптимизировать расчеты скрывать строки и переносить итоги на другой лист сохраняя в базу

[mkm]

Помогите освоить VBA. Пытался по знаниям полученных с форума воплотить задуманное, но тщетно(
Цель задачи:
1. Манипуляции производим на листе “ТШ”
1.1. При выборе значения в ячейке R12 (п.4.3.1.; п.4.3.2.; п.4.3.3.)
Меняется набор открытых строк:
1.1.1. в ячейке R12 значение – “п.4.3.1.” диапазон строк № 89:92, 93:96 - скрыты, диапазон строк № 85:88 открыты;
1.1.2. в ячейке R12 значение – “п.4.3.2.” диапазон строк № 85:88, 93:96 - скрыты, диапазон строк № 89:92 открыты;
1.1.3. в ячейке R12 значение – “п.4.3.3.” диапазон строк № 85:88, 89:92 - скрыты, диапазон строк № 93:96 открыты.
1.2. 1.При выборе значения в ячейке D19 (Подземная часть; Надземная часть)
Меняется набор открытых строк:
1.2.1. в ячейке D19значение – “Подземная часть” диапазон строк № 104:108 - скрыта, диапазон строк № 100:103 открыта;
1.2.2. в ячейке D19 значение – “Надземная часть.” диапазон строк № 100:103 - скрыта, диапазон строк № 104:108 открыта.
2. Сохранение итогов с листа “ТШ” на лист “Итоги”
Значения ячеек №AI21; AI23; AI26; AI57; AI58; AI39 при нажатии на кнопку переносились на лист “Итоги”
В столбцы D;E;F;U;V;M. Основная мысль данной манипуляции сохранение большого количества расчетов. Скорее всего с проверкой указанных строк на заполненность и если строка заполнена, перенос данных на ячейку ниже

Заранее спасибо!

[mkm]

Возник дополнительный вопрос. Как отключить видимость уравнения (Вставка- Уравнение) при скрытии строк нужных строк. В стандартном варианте скрытия строки формула смещается сохраняя пропорции.