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...