Målsøgning (GoalSeek, mange iterationer tager lang tid)

Hej
Jeg har opbygget et regneark i Excel, hvor der foretages en "Målsøgning" (GoalSeek, regnefunktion i Excel) i hver linie. Målsøgningerne er foretaget med en "makro". Jo længere ned i regnearket beregningerne kommer jo længere tid tager det at udføre beregningerne. Der skal foretages 8760 målsøgninger, dvs. der er 8760 linier i arket som skal beregnes. Dette vil tage 2 til 3 timer med den nuværende struktur. Det ser ud til at det muligvis er en opdatering af arket som tager tiden. Jeg har forsøgt, i menulinien, at slå diverse funktioner fra og til, men det hjælper ikke. Beregningerne skal foretages med forskellige parametervariartioner og vil tage flere dage med den nuværende opbygning. Er der nogle som har idé til, hvad der kan gøres for at formindske beregningstiden væsentligt samt evt. hvad som bevirker at beregningerne tager så lang tid.
Makroen ser ud på følgende måde:
Sub IterationCopy()
'
        For i = 1 To 8760
               
        ActiveCell.GoalSeek Goal:=0#, ChangingCell:=ActiveCell.Offset(0, 3).Range("A1")
       
        ActiveCell.Offset(0, -26).Select
        Range(Selection, Selection.End(xlToRight)).Select
        Selection.copy
        ActiveCell.Offset(1, 0).Select
        Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
       
        'ActiveCell.Offset(-4, 0).Select
        'Range(Selection, Selection.End(xlToRight)).Select
        'Selection.EntireRow.Hidden = True
       
        ActiveCell.Offset(0, 26).Select
        Next
End Sub

Med venlig hilsen fk