Sub rrr()
Call TestFormule(Range(Cells(2, 2), Cells(2, 13)))
End Sub
Sub TestFormule(c As Range)
Dim Rg As Range, Rh As Range, d As Range
Set Rg = Range("A1").SpecialCells(xlCellTypeFormulas, 23)
Set Rh = Intersect(Rg, c)
For Each d In c
If Not Intersect(Rh, d) Is Nothing Then
d.Offset(1, 0) = 2 * d
Else
d.Offset(1, 0) = 20 * d
End If
Next d
End Sub