The VBA program was translated into Google Apps Script (GAS) using Gemini. After some corrections in the program, results are similar.
function = INDIRECT("A"&ROW(C1)*100) ,=INDIRECT("B"&ROW(C1)*100) reduces the file by 100