Optimere udskrift af Array

Hej Eksperter - jeg sidder og prøver at lave noget optimering, hvad gælder udskrift fra et array. Det virker altsammen meget godt, borset fra en lille detalje - her er lige en "test" kode først!

Option Base 1

Sub testing()
Dim DataMatrix() As String

    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual

    Sheets("Ark1").Cells(1, 1) = 1
    Sheets("Ark1").Cells(1, 2) = 2

    ReDim DataMatrix(10, 10)

    For i = 1 To 10
        For j = 1 To 10
            DataMatrix(i, j) = "=A1+B1"
'            Sheets("Ark1").Cells(1 + i, 1 + j) = "=A1+B1"
        Next j
    Next i
   
    Sheets("Ark1").Cells(2, 2).Resize(10, 10).Value = DataMatrix '(.Formula og .Value er prøvet)
   
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic

End Sub

Som man kan se, opretter jeg et Array (DataMatrix), som indeholder en Excelark formel, som jeg derpå udskriver (i en omgang). Nu er det bare således, at det der fremkommer på skærmen i cellen er formlen (der ikke er blevet eksekveret). Hvorfor bliver den ikke det, når jeg (som er udkommenteret) kører cellerne ind i løkken, så bliver de eksekveret! I mine øjne er det samme handling.

Håber det giver mening :)

Kan sige, at ved meget store arrays er forskellen ekstremt mærkbar, og derfor interessant.