Подсчет, фильтрация и перенос данных на другой лист Excel

for x:=1 to y then 
begin
    если ЦЕКС2.A<x> <> ЦЕКС2.A<x>-1 then ' проверяем предыдущее значение на текущем листе
    begin
        for z:=1 to i do 
            если формаТКиАВР.a(z)= цекс2.a(x) then ' проверяем совпадение в столбце A
            begin
                если форма ТКиАВР.q(z)= цекс2.h(x) then 'это на ед измерения
                begin
                    форматкиАВР.r(z):=форматкиАВР.r(z)+цекс2.j(x) 'присвоить ячейки новое значение
                end;
                если форма ТКиАВР.q(z)<> цекс2.h(x) то 'если ед измерения не совпадает с уже текущей 
                begin
                    форматкиАВР.A<i>:=цекс2.a(x)
                    форматкиАВР.b(i):=цекс2.b(x)
                    форматкиАВР.f(i):=цекс2.c(x)
                    форматкиАВР.q(i):=цекс2.h(x)
                    форматкиАВР.r(i):=цекс2.j(x)
                end; 'добавили новую строку с другой ед измерения
                
            end;
            иначе
            если формаТКиАВР.a(z)<> цекс2.a(x) then ' проверяем совпадение и если не совпадает 
            begin
                форматкиАВР.A<i>:=цекс2.a(x)
                форматкиАВР.b(i):=цекс2.b(x)
                форматкиАВР.f(i):=цекс2.c(x)
                форматкиАВР.q(i):=цекс2.h(x)
                форматкиАВР.r(i):=цекс2.j(x)
            end; 'добавили новую строку 
 
end
 
end;