Bir sayfadaki belirli hücreleri başka bir sayfaya kopyalama

[Kalenderist]

Merhaba,
Çalışma dosyamdaki "Döküman" isimli sayfadaki H1:H45 aralığındaki dataları "Liste" isimli sayfadaki A kolonundaki ilk boş hücreyi seçerek dikey kopyaladığımız datayı yatay olarak A:AS kolonlarındaki satıra yapıştırmak istiyorum.

A kolonundaki ilk boş hücreyi seçmekten kastım ise şöyledir, yazılan makroyu çalıştırdığımda örneğin A kolnunda son veri A8 hücresinde var, döküman sayfasından kopyaladığım data A kolonundaki ilk boş hücre A9 bulup o hücreden başlayarak A9:AS9 tüm hücrelere dataları yapıltırması. Bumakroyu herçalıştırdığımda A10i A11 diye devam etmeli.

Yardımcı olabilirseniz çok sevinirim.
Selamlar

 

[Kalenderist]

Hallettim

Sub Token_Liste_Taşı()
'
' Token_Liste_Taşı Macro
'

'
Sheets("Döküman").Select
Columns("F:F").Select
Selection.Copy
Columns("H:H").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("H8").Select
Application.CutCopyMode = False
Range("H1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Liste").Select
Selection.End(xlUp).Select
Range("A3").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("A10").Select
Sheets("(1) Müşteri Başvuru Kontrolü").Select
Range("M12").Select
End Sub