Offset_formualcells_two rows_

[hudson andrew]

Hi ,

Wondering if some once code help me doing small modifications on the below code . and I am my requirement is I want the code to search the cells that has formula in particular column (X) and identifies the formula cells and offset to 2 rows .

Sub Findformulacells()

Dim x As Range
Set x = ActiveSheet.Cells.Find.SpecialCells(xlCellTypeFormulas).LookIn:=xlFormulas

    If Not x Is Nothing Then
         x.Offset(, 2).Value = x.Value
         x.Clear
    End If
Set x = Nothing
End Sub

Please find attached example file for your reference .