Trying to dect formulas and copy values three columns over

[jpk89]

Sub Move3month()
Dim WS As Worksheet
Dim Rng As Range
Dim Cel As Range
Dim isformula As Variant
'not sure which type to use so I just have variant for now

isformula = Cel.HasFormula
Set Rng = ActiveSheet.Range(c9, c200)


For Each WS In ThisWorkbook.Worksheets
'Below I want to check if the current value is a formula, if true copy the number value into the same row three columns over
For Each Cel In Rng

If isformula = True Then
ActiveCell.Copy
ActiveCell.Offset(, 3).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
End If

Next Cel

Next WS

End Sub