Vba copy formula to different sheets

[ste33uka]

I have the following vba to copy values to cells
Could anyone adjust it so it copys the formulas to cells instead of values?

Sub CopyVALUE()
    Application.ScreenUpdating = False
    Dim x As Long
    For x = 2 To 39
        Select Case x
            Case 10 To 19
                Sheets(x).Range("Q2").Value = Sheets(1).Range("I3").Value
                Sheets(x).Range("AR3").Value = Sheets(1).Range("I4").Value
            Case 20 To 29
                Sheets(x).Range("Q2").Value = Sheets(1).Range("J3").Value
                Sheets(x).Range("AR3").Value = Sheets(1).Range("J4").Value
            Case 30 To 39
                Sheets(x).Range("Q2").Value = Sheets(1).Range("K3").Value
                Sheets(x).Range("AR3").Value = Sheets(1).Range("J4").Value
        End Select
    Next x
    Application.ScreenUpdating = True
End Sub

 

[Fluff]

Try changing .Value to .Formula

 

[ste33uka]

Try changing .Value to .Formula

Thanks alot,

 

[Fluff]

You're welcome.