Makro ile sayfa kopyalamak

[Baggwell]

Merhaba

Geçmiş konuları araştırdım ama net bir çözüme ulaşamıyorum

Rica etsem makro konusunda yardım edebilirmisiniz

Ben aktif olan sayfamı bu şekilde kopyalamak istiyorum.

Makroyu tekrar aktif hale getirdiğimde, Data dosyasında en alt satıra kopyalanması için ne yapmam gerekiyor ?

Yani en alt satıra iniyor en alttaki değerin üstüne kopyalıyor +1 satır aşağıya inmesi lazım

Sub Makro4()
'
' Makro4 Makro
'

'
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data").Select
    Range("A1").Select
    Selection.End(xlDown).Select
    Range("A9").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

 

[tlgsri88]

örnek dosya eklerseniz yardımcı olayım.
data sayfasındaki verilere göz atmak gerek hangi sütunda en alta kopyalamak istiyorsunuz.
Birde bu işlemi bir butonla mı yoksa A1:B8 aralığında herhangi bir hücreyi değiştirdiğinizde otomatik mi olmasını istiyorsunuz

 

[Baggwell]

Tamam hocam 5dk müsade edin yeni bir örnek sayfa ekleyeceğim hemen hazırlıyorum

 

[Baggwell]

Ek dosyada,

Ben makroyu "değer içeren" son satır ve sütuna kadar yaptım.
Bunu yaparken A1,B9 aralığında veri vardı.

Daha sonra biraz daha veri ekledim ama onları Data dosyasına kopyalamıyor.

sadece A1,B9 aralığını alıyor

 

[Baggwell]

Veriyi en alt satıra kopyalamk istiyorum

 

[Baggwell]

Biraz daha ilerleme kaydettim, Şuan tek istediğim şey
Veriyi en alttaki boş satıra kopyalasın

Sub Makro2()
'
' Makro2 Makro
'

'

    Sheets("PL").Select
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Data").Select
    Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select

[COLOR="Red"]' Sanırım buraya bir kod gerekiyor, bir alttaki satıra geçmesi için ama bulamıyorum .) '[/COLOR]

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
       
End Sub