vba döngü ile Anasayfadaki verileri sayfa1 de dolu satırın en alt satıra aktarma

merhaba arkadaşlar döngü ile veri aktarırken e den sonra karıştırmaya başlıyor bunun için daha pratik bir yol varmı Ana sayfadaki tüm verileri sayfa 1 deki dolu satırın altına sırayla aktarmasını istiyorum.

'-------------AD SOYAD---------------------------------------
AA = Sheets("Sayfa1").Range("A2000").End(xlUp).Row + 1
bb = Sheets("Anasayfa").Range("A2000").End(xlUp).Row
Sheets("Sayfa1").Range("A" & AA & ":A" & AA + bb - 1).Value = _
Sheets("Anasayfa").Range("A2:A" & bb + 1).Value
'----------------T.C.KİMLİK----------------------------------
ab = Sheets("Sayfa1").Range("B2000").End(xlUp).Row + 1
ba = Sheets("Anasayfa").Range("B2000").End(xlUp).Row
Sheets("Sayfa1").Range("B" & ab & ":B" & ab + ba - 1).Value = _
Sheets("Anasayfa").Range("B2:B" & ba + 1).Value

'----------------SINIF----------------------------------
S1 = Sheets("Sayfa1").Range("c2000").End(xlUp).Row + 1
s2 = Sheets("Anasayfa").Range("C2000").End(xlUp).Row
Sheets("Sayfa1").Range("C" & S1 & ":C" & S1 + s2 - 1).Value = _
Sheets("Anasayfa").Range("C2:C" & s2 + 1).Value

'----------------OKUL NO----------------------------------
A1 = Sheets("Sayfa1").Range("D2000").End(xlUp).Row + 1
A2 = Sheets("Anasayfa").Range("D2000").End(xlUp).Row
Sheets("Sayfa1").Range("D" & A1 & "" & A1 + A2 - 1).Value = _
Sheets("Anasayfa").Range("D2" & A2 + 1).Value

'-----------BABA ADI SOYADI-------------------------

B1 = Sheets("Sayfa1").Range("E2000").End(xlUp).Row + 1
B2 = Sheets("Anasayfa").Range("E2000").End(xlUp).Row
Sheets("Sayfa1").Range("E" & B1 & ":J" & B1 + B2 - 1).Value = _
Sheets("Anasayfa").Range("E2:E" & B2 + 1).Value

'-------------BABA TEL ----------------------------------------
T1 = Sheets("Sayfa1").Range("F2000").End(xlUp).Row + 1
t2 = Sheets("Anasayfa").Range("F2000").End(xlUp).Row
Sheets("Sayfa1").Range("F" & T1 & ":F" & T1 + t2 - 1).Value = _
Sheets("Anasayfa").Range("F2:F" & t2 + 1).Value

'------------ANNE ADI SOYADI --------------------------
A1 = Sheets("Sayfa1").Range("G2000").End(xlUp).Row + 1
A2 = Sheets("Anasayfa").Range("G2000").End(xlUp).Row
Sheets("Sayfa1").Range("G" & A1 & ":L" & A1 + A2 - 1).Value = _
Sheets("Anasayfa").Range("G2:G" & A2 + 1).Value

'----------------------ANNE TELEFON--------------------------

T3 = Sheets("Sayfa1").Range("H2000").End(xlUp).Row + 1
T4 = Sheets("Anasayfa").Range("H2000").End(xlUp).Row
Sheets("Sayfa1").Range("H" & T3 & ":H" & T3 + T4 - 1).Value = _
Sheets("Anasayfa").Range("H2:H" & T4 + 1).Value

Hocam örnek veri ve kodları içeren bir excel dosyası yüklerseniz daha kolay anlaşılır. Dosya içinde kişisel bilgiler olmasın (KVKK ya dikkat)

merhaba hocam örnek dosya ektedir. userform içinde kodları ekledim görünüşte doğru aktarıyor fakat kayıt sayısı 2000 e yakın okunca ve arada anne yada baba adı boş olursa kaydırma yada eksik aktarma yapıyor

Örnek dosyayı inceleyiniz. Makroları etkinleştirmeyi unutmayın.