Sıralama Hakkında Yardım

[cetinerlux]

Ben sayfamda Raporlama Kısmı olusturdum aktar butonuna tıkladığımda her yazdığımın alt alta yazmasını istiyorum
Sub aktar()
Dim k As Range, adr As String
Set s1 = Sheets("rapor")
sat1 = s1.Cells(65536, "A").End(xlUp).Row
Application.ScreenUpdating = True
For i = 4 To sat1
Sheets("rapor").[A2].Value = Sheets("fatura").[D13].Value
Sheets("rapor").[B2].Value = Sheets("fatura").[D14:H17].Value
Sheets("rapor").[C2].Value = Sheets("fatura").[L11].Value
Sheets("rapor").[D2].Value = Sheets("fatura").[L12].Value
Sheets("rapor").[E2].Value = Sheets("fatura").[L13].Value
Sheets("rapor").[F2].Value = Sheets("fatura").[L14].Value
Sheets("rapor").[G2].Value = Sheets("fatura").[L15].Value
Sheets("rapor").[H2].Value = Sheets("fatura").[L16].Value
Sheets("rapor").[I2].Value = Sheets("fatura").[C19:C31].Value
Sheets("rapor").[J2].Value = Sheets("fatura").[D1931].Value
Sheets("rapor").[K2].Value = Sheets("fatura").[L19:L31].Value
Sheets("rapor").[L2].Value = Sheets("fatura").[M19:M31].Value
Sheets("rapor").[M2].Value = Sheets("fatura").[L34].Value
Sheets("rapor").[N2].Value = Sheets("fatura").[M34].Value
Sheets("rapor").[O2].Value = Sheets("fatura").[M32].Value
Sheets("rapor").[P2].Value = Sheets("fatura").[M36].Value
Sheets("rapor").[Q2].Value = Sheets("fatura").[D33].Value
Sheets("rapor").[R2].Value = Sheets("fatura").[D34].Value
Sheets("rapor").[S2].Value = Sheets("fatura").[D35].Value
Sheets("rapor").[T2].Value = Sheets("fatura").[D37].Value
Sheets("rapor").[U2].Value = Sheets("fatura").[D38].Value
Sheets("rapor").[V2].Value = Sheets("fatura").[D39].Value
Sheets("rapor").[W2].Value = Sheets("fatura").[M3].Value
Exit For


Next
Application.ScreenUpdating = True
MsgBox "Rapor Aktarma tamamlanmıştır." & vbLf & _
"info@cetinerlux.com", vbOKOnly + vbInformation, "Ç E T İ N E R L U X "
End Sub


birde ana sayfam olan fatura sayfamda bulunan adres hucresi d14 aktar dediğimde sadece bunu aktarı yor ama ben yazdığım d14ved15 beraber aktarılmasını istiyorum

aynı işlemi c19 d19 l19 ve m 19 c31 d31 l31 ve m31 arasıda yapmak istiyorum
yardımcı olursanız sevinirim

yardımcı olcak yokmu cok lazım

 

[cetinerlux]

yardımcı olacak yokmu cok lazım