son hücreye kopyalama

[kenangulal]

merhaba, kopyaladığım veriyi son satıra yapıştırmak istiyorum ekli kod çalışıyor ancak sondan bir üsteki hücreye yapıştırıyor son hücre için yardımcı olabilirmisiniz. teşekkürler.

Sheets("sayfa1").Select
Range("A2:A100").Select
Selection.Copy
Sheets("sayfa2").Select
[a65536].End(3).Select
'Range("A6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

 

[Levent Menteşoğlu]

[a65536].End(3).Select

Yukarıdaki satırı aşağıdaki ile değiştirin.

[a65536].End(3).offset(1,0).Select

 

[trafikci]

tam aradığım koda benziyor ama kullanamadım snleventm, biraz daha açabilrimisiniz acaba

 

[kenangulal]

teşekkürler sayın leventm nokta atışı oldu.
syg.