sayfadaki ilk satırı son dolu satırdan sonraya kopyalamak

[unur]

Günaydın;

Makrolardan hiç anlamam, dünden beri makroları inceliyorum. Kimisi için çok basit ama işin içinden çıkamadım.

Kodlarla sayfadaki ilk satırı, gene aynı sayfadaki son dolu satırından sonraki boş satıra kopyalamak istiyorum.
Teşekkürler.

 

[askm]

A1 hücresindeki değeri A sütununun son hücresinden sonra eklemek için kod:

Sub askm()
Dim son As Long
son = Range("A" & Rows.Count).End(xlUp).Row + 1
Cells(son, 1) = Cells(1, 1)
End Sub

 

[unur]

A1 hücresindeki değeri A sütununun son hücresinden sonra eklemek için kod:

Sub askm()
Dim son As Long
son = Range("A" & Rows.Count).End(xlUp).Row + 1
Cells(son, 1) = Cells(1, 1)
End Sub

Teşekkürler askm
A1 hücresindeki değeri değilde, 1'inci satırı A sutunundaki en son dolu hücreden sonraya tüm satır olarak kopyalamak istemiştim.
Nasıl revize edilebilir.
Teşekkürler

 

[Haluk]

Aşağıdaki satırı;

Cells(son, 1) = Cells(1, 1)

bununla değiştirin;

Rows(son).Value = Rows(1).Value

.

 

[unur]

Teşekkürler Haluk Bey.