VBA kode der ændrer lopslag i mange celler

Jeg har en masse filer som har en frygtelig masse Lopslag stående.
Lopslaget slår op i hele kolonnen og ser således ud:
=HVIS.FEJL(HVIS(A7>0;AFRUND(LOPSLAG(A7;Import!A:G;6;FALSK)*-1;0);0);0)

Jeg har problemer med at min filer går ned og fryser m.m.
Derfor vil jeg gerne "slanke" nogle af de mange formler således den kun slåer op i de første 2000 celler i kolonnen.
Det ser således ud:

=HVIS.FEJL(HVIS(A7>0;AFRUND(LOPSLAG(A7;Import!A$1:G$2000;6;FALSK)*-1;0);0);0)

De 2 formler er taget ud fra linje 7, hvorfor der står A7 til lopslag.
Denne ændrer sig selvfølgelig på de mange linjer der er i hvert ark i de forskellige filer.

Mit spørgsmål er så nu.
Kan der laves en kode der tager indholdet og retter den fra den første formel og til den anden formel.

Eller måske en kode der blot erstatter formlerne med given formel i feks. U1.
Det svære ser ud til at være at den skal det at rækken i lopslag ændres i hver linje.