Makróval meg lehet oldani.

Sub Keplet_Copy()
    usor = Range("B65536").End(xlUp).Row  'B
    For sor = 2 To usor
        If Cells(sor, 2).HasFormula = True Then  'B
            Cells(sor, 2).Copy  'B
            Cells(sor, 4).Select  'D
            Selection.PasteSpecial Paste:=xlFormulas
        End If
    Next
    Application.CutCopyMode = False
End Sub

Ez a B oszlopban vizsgálja, hogy képletek vannak-e. Igaz esetén a D oszlopba másolja a képletet.

B és D betűkkel jelöltem a sorokat, ahol átírhatod a saját elrendezésednek megfelelően.