apply a formula to an large range

Sub bar()
Dim varArr() As Variant
Dim i As Long, j As Long
Let varArr = [Sheet1!D24:H70/Pi()]
'Lets have a peek
For i = LBound(varArr, 1) To UBound(varArr, 1)
    For j = LBound(varArr, 2) To UBound(varArr, 2)
        Debug.Print varArr(i, j)
    Next
Next
End Sub

Sub baz()
[Sheet1!D24:H70] = [Sheet1!D24:H70/Pi()]
End Sub

Sub DivideByPi()
'
' Macro created 05/21/2007 by Stanley D. Grom, Jr.
' apply a formula to an large range - JustinWWolcott
'
' Thank you Jindon
'
    With Sheets("Sheet1").Range("J24:N70")
         .Formula = "=RC[-6]/Pi()"
    End With

End Sub