Sæt formler som faste værdier

Har følgende VBA kode til, at sætte formler som faste værdier i ark:
Sub Sæt_værdier2()
Dim ref As String, kl As String, Srk As Long
'D2 vælges og formlen: =B2/C2 indsættes
    Range("E2").Select
    ActiveCell.FormulaR1C1 = "=RC[-2]"
'Kolonne og sidste række i C findes
    kl = Mid(ActiveCell.Address, 2, InStr(2, ActiveCell.Address, "$") - 2)
    Srk = ActiveSheet.Range("C65536").End(xlUp).Row
'Autofill udføres
    Selection.AutoFill Destination:=Range(ActiveCell.Address & ":" & "$" & kl & "$" & Srk)
'Autofil markeres, kopieres og indsættes som værdier
    Range(ActiveCell.Address & ":" & "$" & kl & "$" & Srk).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.CutCopyMode = False
End Sub

Hvis man så også gerne vil sætter faste værdier pba formler i de efterfølgende kolonner E, F, G.... hvordan gør man det og hvor hurtigt arbejder den når der er +50.000 rækker ?

Vh. LK