İki ayrı sayfadaki listeleri satır satır birleştirme

[vedat1905]

sorum şu 8. sınıf sayfasında 8. sınıf liste ve 7. sınıf sayfasında 7. sınıf liste var bu iki listeyi sayfa 8den 1. satır sayfa7den ikinci satır olacak şekilde aşağıya doğru sıralanmasını istiyorum.

 

[vedat1905]

Sub karma_liste_oluştur()
Application.ScreenUpdating = False
Set s3 = ThisWorkbook.Worksheets("BİRLES")
Set s1 = ThisWorkbook.Worksheets("KIZ").Range("A1").CurrentRegion
Set S2 = ThisWorkbook.Worksheets("ERKEK").Range("A1").CurrentRegion
sut = S2.Columns.Count
sa = 4
s1.Copy s3.Range("A1")
For i = 2 To S2.Rows.Count
If i Mod 2 = 1 Then
S2.Range(S2.Cells(i - 1, 1), S2.Cells(i, sut)).Copy
s3.Range("A" & sa).Insert Shift:=xlDown
sa = sa + 4
ElseIf i = S2.Rows.Count And i Mod 2 = 0 Then
S2.Range(S2.Cells(i, 1), S2.Cells(i, sut)).Copy
s3.Range("A" & sa).Insert Shift:=xlDown
sa = sa + 4
End If
Next
End Sub


BU KOD İKİ SAYFADAKİ LİSTEYİ İKİŞER İKİŞER ALIYOR BENİM İSTEDİĞİM BİR BİR ALSIN

 

[vedat1905]

Teşekkür ederim.