İlk boş hücreye veri yapıştımak

[GUERRA]

arkadaşlar selam,
bir sayfadaki manuel seçtiğim bir veriyi, diğer sayfadaki ilgili kolonun ilk boş olan hücresine nasıl yapıştırırım? hatta ilk boş olana değil de bir boşluk bırakıp nasıl yapıştırırım ?

 

[Ömer]

Merhaba,

Kodları butona atadıktan sonra sayfa1 de fare ile verileri seçin ve butona tıklayın..

Sub Kopyala()
Set s1 = Sheets("Sayfa2")
son = s1.[A65536].End(3).Row + 2
    Selection.Copy s1.Range("A" & son)
End Sub

.