formülü uzatma

[acar6783]

Kolay gelsin

sayfa1 ve sayfa 2
sayfa 1 de a b ve c sutununda veriler var
bunlarısırasıyla sayfa 2ye almam gerekiyor
şöyle ki;

sayfa2 a1=sayfa1!a1
sayfa2 b1=sayfa1!a2
sayfa2 c1=sayfa1!a3

sayfa2 a1=sayfa1!b1
sayfa2 b1=sayfa1!b2
sayfa2 c1=sayfa1!b3

sayfa2 a1=sayfa1!c1
sayfa2 b1=sayfa1!c2
sayfa2 c1=sayfa1!c3

sayfa2 a1=sayfa1!d1
sayfa2 b1=sayfa1!d2
sayfa2 c1=sayfa1!d3

ilk üç satr bu şekilde olacka ve diğer 3lü gruplar halinde satırlar bu şekilde devam edicek bunu yapmak için bir kısayol varmıdır.

 

[acar6783]

başka bir deyişle bu bir etiket çıkarma sayfası olacak
4 sütunluk ve 3lü satır grupları halinde 7 satırlık
bu wordde yapılabiliyor ama ben excelde yapmak istiyorum

 

[acar6783]

Sub Doldur()
    
    Dim i   As Long, _
        Sat As Long, _
        j   As Integer, _
        Kol As Integer, _
        Grp As Integer
    
    Application.ScreenUpdating = False
    
    Grp = 1
    Sat = 1
    j = 0
    Kol = 1
    Range("A:D").ClearContents
    
    For i = 2 To Cells(Rows.Count, "P").End(3).Row
    
        Cells(Sat, Kol) = Cells(i, "P")
        Cells(Sat + 1, Kol) = Cells(i, "Q")
        Cells(Sat + 2, Kol) = Cells(i, "R")
        
        Sat = Sat + 3
        j = j + 1
        If j > 4 Then
            j = 0
            Sat = (Grp - 1) * 15 + 1
            Kol = Kol + 1
            If Kol = 9 Then Kol = Kol + 1
            If Kol > 4 Then
                Kol = 1
                Grp = Grp + 1
                Sat = (Grp - 1) * 15 + 1
            End If
        End If
        
    Next i
    
    Application.ScreenUpdating = True
    
    
End Sub

bu şekilde bir kod bulup kendime göre düzenledim fakat veriyi sayfa 1den almam gerekiyor onu beceremedim.
yardımcı olabilirmnsiniz