Filling array bas on vba formula

[Paul_Hossler]

I couldn't rest with your formula, but just putting a simple one, something like this maybe

Option Explicit


Sub NewTest()
    Dim sh As Worksheet
    Dim rng As Range
    
    Set sh = Sheets("Existing 2W")
    With sh
        Set rng = .Cells(.Rows.Count, 19).End(xlUp).Offset(1, 0)
        Set rng = Range(.Cells(2, 19), rng)
    
        .Range("S1").Interior.Color = vbRed
    End With
    
'    rng.FormulaLocal = "=INDEX(Latest_Range;EQUIV(GAUCHE(DROITE(Z2;11);5);LatestLineNo;0);11)"
    rng.FormulaLocal = "=10*RAND()"


End Sub