Gerçekleştir biye bir buttonum var buna tıkladığımda belir li hücrelerdeki değerleri hedef sütunların en sonundaki boş satıra eklemek istiyorum. mümkün müdür?

Sub aktar()

Dim son As Long

With ThisWorkbook.Sheets("Sayfa1")

    son = .Range("A" & Rows.Count).End(3).Row + 1

    .Range("A" & son).Value = .Range("G3").Value

    .Range("B" & son).Value = .Range("G4").Value

    .Range("C" & son).Value = .Range("G5").Value

End With

End Sub

Konuyu açan geri dönüş yapma zahmetine girmediği için konu cevaplanmışlara taşınmıştır.