Nem hagyott nyugodni a dolog. Megcsináltam úgy, hogy az összevont sorokkal működik.

If UCase(Cells(1, (tp \ 5 * 5).Value) = telp And UCase(Cells(2, tp).Value) = term Then

És tettem egy frissítés gombot az A1 cellába, amivel rá lehet frissíteni a kitöltésre. Ekkor törli a táblát és kitölti az összes sorral, hozzáadással.

https://data.hu/get/12619518/AUDIT.xlsm

És rendeztem a változók deklarálását ;)