Eğer sadece formül varsa alttaki koduda deneyebilirsiniz kısa olması açısından.

Tabii benim tercihim ilk verdiğim kod olurdu.

Sub Test()

    

    With Sheets("Veri")

      .Range("F2:F" & Rows.Count).ClearContents

        On Error GoTo son

        With Sheets("Mahalle")

            .Range("D2" & .Cells(Rows.Count, "D").End(3).Row).SpecialCells(xlCellTypeFormulas, 23).Copy

        End With

    

        .Range("F2").PasteSpecial Paste:=xlPasteValues

        .Range("F2").Select

    End With

son:

    Application.CutCopyMode = False

End Sub