Sub VeriAktar()
Dim kaynakSayfa As Worksheet
Dim hedefSayfa As Worksheet
Dim veriAraligi As Range
' Kaynak ve hedef sayfalarını tanımlayın
Set kaynakSayfa = ThisWorkbook.Sheets("Sayfa1")
Set hedefSayfa = ThisWorkbook.Sheets("Sayfa2")
' Veri aralığını tanımlayın
Set veriAraligi = kaynakSayfa.Range("A1:A6") ' Burayı ihtiyaçlarınıza göre düzenleyin
' Veriyi hedef sayfaya kopyalayın
veriAraligi.Copy Destination:=hedefSayfa.Range("A1")
End Sub