Soru Başka sayfaya alt alta aktarma

[NADİR YILDIZ]

arkadaşlar günaydın
aşağıdaki makro ile sayfa 2 ye A2:O650 aralığına alt alta aktarıyorum
sayfa 2 ye U2:AH650 Aralığına aktarım yapmam için nereyi değiştirmem gerekiyor.
hepsini değiştirdim ama sonuç alamadım.
dosya ekleyemiyorum.çok sayfa ve veri mevcut

iyi çalışmalar


Sub Aktar()
Dim S2 As Worksheet

If Range("A2:O650") Is Nothing Then Exit Sub
If WorksheetFunction.CountA(Range("A2:O650")) <> 0 Then

Set S2 = Sheets("SAYFA2")
Range("A2:O650").Copy S2.Cells(S2.Rows.Count, 1).End(3)(2, 1)
Range("A2:O650").ClearContents
Set S2 = Nothing
MsgBox "Aktarım yapılmıştır.", vbInformation
Else
MsgBox "Aktarım işlemi için veri girişi yapmalısınız!", vbCritical
End If
End Sub

 

[GursoyC]

Bu satırı:
Range("A2:O650").Copy S2.Cells(S2.Rows.Count, 1).End(3)(2, 1)

Böyle değiştirip dener misiniz:
Range("A2:O650").Copy S2.Cells(S2.Rows.Count, 21).End(3)(2, 1)

 

[NADİR YILDIZ]

teşekkürler sayın unlimitted

iyi çalışmalar

 

[GursoyC]

Rica ederim. İyi çalışmalar.