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.