formülü toplu şekilde aşağıya çekmek

[yNsr43]

merhaba arkadaşlar şu formülü for döngüsüne nasıl alabiliriz teşekkürler.

Sub Makro8()
'
' Makro8 Makro

    Range("b7").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.FillDown
    Range("c7").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.FillDown
    Range("d7").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.FillDown
    Range("e7").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.FillDown
        Range("f7").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.FillDown
    Range("g7").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.FillDown
end sub

 

[Korhan Ayhan]

Sanki döngüye gerek yok gibi görünüyor.

Ben son satırı A sütununa göre düzenledim. Siz kendi dosyanıza göre düzenlersiniz.

Option Explicit

Sub Fill_Down()
    Range("B7:G" & Cells(Rows.Count, "A").End(3).Row).FillDown
End Sub