Добавление или удаление строк в таблице по условию значения в ячейке с сохранением формул в таблице

[Lebensvoll]

Доброе утро всем, помогите прописать макрос...
Имеется таблица "Требования кинетической толщины грунтовочного слоя мостового покрытия" на листе, (в графах 7; 8; 9; имеются формулы)

Возможна легкая работа
- в зависимости от "Площади" Увеличивается или увеличивается количество строк в данной таблице (согласно условиям "ЗНАЧЕНИЯ" в ячейке L2). На просторах интернета розыскал вот такой код вод (правда я его уже немного под себя поправил - но результатом не даволен) - при его срабатывании удаляется также вся информация находящаяся под таблицей

Private Sub Worksheet_Change(ByVal Target As Range) Любые изменения на листе
'код пользовательского формата памяти
    'Если Целевой.Адрес(0, 0) = "А11" Тогда
        'Приложение.EnableEvents = 0
        'Target = "ПРОТОКОЛ № " & Target
        'Приложение.EnableEvents = 1
    «Конец, если
 Если Intersect(Target, [L2]) ничего не значит, то выйдите из подпрограммы
Если Target.Count > 1, то выйдите из Sub
    ilr = Cells(Rows.Count, 1).End(xlUp).Row
    Если ilr > 37, то Rows("37:" & ilr - 1).Удалить xlShiftUp
    Для x = 1 To Target.Value
        Строки(37).Вставить
    Следующий х

'****************************************************** ******************************************************* ****************************************
Конец сабвуфера

И если можно к коду, напишите описание кода самого, который мы реализуем - мне нужно себе будущее и разобраться

СПАСИБО ОГРОМНОЕ ПРЕДВАРИТЕЛЬНОЕ ПРЕДЛОЖЕНИЕ!!!

ПРОТОКОЛ № 1.xlsm
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q
1																1	5
2												10				3	10
3																10	15
4																30	20
5																100	30
6							УТВЕРЖДАЮ									200	40
7							Начальник лаборатории									300	50
8							ООО "ПЕЛИСКЕР"
9							__________ / А.В. Китаев /
10							30 ноября 2021 г.
11	ПРОТОКОЛ № 1
12	по измерению толщины антикоррозийной защиты элементов пролетного строения в соответствии с СП 28.13330.2017; ГОСТ 31993-2013
13	Объект строительства: Строительство многоуровневых транспортных развязок с реконструкцией и строительством улично-дорожной сети на участке от ул. Лухмановская до границ с Московской областью. Этап 2: «Участок от Косинского шоссе до ул. Покровская». Путепровод на пересечении с Лухмановской улицей.
14	Заказчик:	ГКУ "УДМС"
15	Изготовитель:	АО "Воронежстальмост"
16	Контролируемый участок:	Вставка верхнего пояса ВВП1
17	Наименование материала:	Сертификат №3449 Грунтовочный слой - материал WG - Феррогальваник (толщина 80 мкм) Промежуточный лист - материал WG -													[/ XD][XD]
18	Площадь:	3,0 м²
19	Данные испытаний:	30.11.2021					[ /XD][XD]						[/ XD][XD]
20	Условия проведения испытаний:	t° (нар.воз)	- 2 °С	влажность, %	92 %	[ /XD][XD]						[/ XD][XD]
21	Применяемые средства измерения
НОВОТЕСТ ТП-1 М, зав.№0015390420 происшествия о поверке № В-094-21 от 29.01.2021г													[/ XD][XD]
23	Требования кинетической толщины грунтовочного слоя мостового покрытия
Измерения					Грунтовочный слой[/ XD][XD]									[/XD ][XD]
25	Минимально допустимая толщина 80 % от оценкой, мкм					64 мкм
26	Номинальная толщина, мкм					80 мкм
27	Максимальная толщина 300 % от номинальной, мкм					240 мкм[ /XD][XD]									[/ XD][XD]
28	Требования к толщине грунтовочного слоя мостового покрытия
29		Грунтовочный слой, мкм														[ /XD][XD]
30	№ п/п	1	2	3	4	Среднее значение в дозе плотности, мкм	Сравнение	Требуемая толщина, мкм
31	1	2	3	4	5	6	7	8	9
32	84	91	90	90	94	[ФОРМУЛА ==IFERROR(AVERAGE(Таблица24[@[1]:[5]]),"")]90 мкм[/FORMULA]	]<=[@[Требуемая толщина, мкм]],"≤","≥")]≥	&rsqb="","",$F$26)]80 мкм
33	2	87	94[ /XD][XD=h:c|v:m|bc:DDEBF7|c:FF0000|fz:10pt]94	94	80	:[5]]),"")]90 мкм[/ XD][XD=h:c|v:m|fw:b|bc:DDEBF7|fz:10pt|cls:fx]]<=[@[Требуемая толщина, мкм]],"≤","≥")]≥	&rsqb="","" ,$F$26)]80 мкм					[/XD ][XD]
34	3	85	95	85	92	84	:[5]]),"")]88 мкм	]<=&lsqb@[Требуемая толщина, мкм]],"≤","≥")]≥	]="","",$F$26)]80 мкм[/FORMULA ][/XD][XD][/XD][XD][/XD][XD][/XD][XD][/XD][XD][/XD][XD][/XD][XD] [/XD][XD][/XD][/XR][XR][XH]35[/XH][XD=h:c|v:m|fw:b|bc:DDEBF7|ch:12,75 |fz:10pt]4[/XD][XD=h:c|v:m|bc:DDEBF7|c:FF0000|fz:10pt|cls:ww]85[/XD][XD=h:c|v :m|bc:DDEBF7|c:FF0000|fz:10pt|cls:ww]96[/XD][XD=h:c|v:m|bc:DDEBF7|c:FF0000|fz:10pt]86[/ XD][XD=h:c|v:m|bc:DDEBF7|c:FF0000|fz:10pt]88[/XD][XD=h:c|v:m|bc:DDEBF7|c:FF0000|fz :10pt]94[/XD][XD=h:c|v:m|fw:b|bc:DDEBF7|fz:10pt|cls:fx][FORMULA==IFERROR(AVERAGE(Таблица24[@[1]:[5]]),"")]90 мкм	&rsqb="","",$F$26)]80 мкм
36	5	90	88	90	89	87	:[5]]),"")]89 мкм	]<=[@[Требуемая толщина, мкм]],"≤","≥" )]≥	&rsqb="","",$F$26)]80 мкм
37				[/XD ][XD=c:FF0000|cls:bt]									[ /XD][XD]
38	Число измерений между НТСП и 80% НТСП, %				[/XD ][XD=fs:i|c:2F75B5|cls:bb]		[ФОРМУЛА==(СЧЁТЕСЛИ(G32:G36,">"&F16)-СЧЁТЕСЛИ(G32:G36,"<"&F15))/СЧЕТ(G32:G36)]0%[/ ФОРМУЛА]
39	Число измерений меньше 80% НТСП, %							0%
40	Итог						89 мкм
41	 Настоящий протокол относится только к пробе-пробе подтвержденным испытаниям
42	 Запрещается частичная перепечатка данного протокола без согласования с испытательной лабораторией[/ XD][XD]														[/XD ][XD]
43
44	Вывод:							[ /XD][XD]						[/ XD][XD]
45	Толщина покрытия состоит 89 мкм.
46	[/ XD][XD=c:FF0000]
47	Испытания провели :	Инженер ООО "ПЕЛИСКЕР"		[/ XD][XD=fw:b|fs:i|c:44546A|cls:bb]		/ А.С.Анисимов /
	(должность)						(Ф.И .О.)					[/XD ][XD]
49
Толщина краски

[XD ][/XD] [ XD=fw:b][/XD] [ XD][/XD] [XH ]22[/XH] [ XH]24[/XH] [ XD][/XD] [XD ][/XD] [ XD=h:c|v:m|fw:b|fz:8pt|cls:bt bb ww]5[/XD] [XD ][/XD] [XD =h:c|v:m|fw:b|ch:12,75|fz:10pt|cls:bt]1[/XD] [XD ][/XD] [XD =h:c|v:m|fw:b|bc:DDEBF7|fz:10pt|cls:fx] ]<=[ @[Требуемая толщина, мкм]],"≤","≥")]≥ [/XD] [ XD][/XD] [XD ][/XD] [ XD][/XD] [ XD=fw:b|ch:12,75|cls:bt][/XD] [XD ][/XD] [XD ][/XD] [XD ][/XD] [ XD][/XD] [XD =fw:b|fs:i|c:44546A|cls:bb][/XD] [ XH]48[/XH] [ XD=fw:б][/XD] [XD ][/XD]