(28/04/2020, 00:05)yyhy yazdı: Sayın @feraz bey ihtiyaca cevap verdi. Elinize sağlık teşekkür ederim. Dosya hazırlamaya zamanım olmadı acele ile attım. Yine de çok teşekkürler.

Rica ederim.
Sizin döngülü yöntem harici bir kod yazdım isterseniz bunuda deneyebilirsiniz.

Const kaydir As Integer = 3

Yukaradaki 3 demek mesela D:G aralığındaki veriler alınacaksa için.
D:I aralık olsaydı 5 yazılacktı.

Sub DOLU_HUCRELERI_KOPYALA()

    Const kaydir As Integer = 3

    Dim syf_Mahalle As Worksheet

    Set syf_Mahalle = Sheets("Mahalle")



    With Sheets("Veri")

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

        syf_Mahalle.Range("D2", syf_Mahalle.Range("D2").Offset(10001, kaydir)).Copy .Range("F2")

        .Range("F2", .Range("F2").Offset(10001, kaydir)).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp

    End With

    Application.CutCopyMode = False

    Set syf_Mahalle = Nothing

End Sub