sırayla makro kodu yazma

[semira_]

excel dosyası ektedır , sırayla 7 ser kez 1 daha sonra 2 ve 3 yazılsın istıyorum , ardı sıra tekrar 7 şer kez 1, yıne 2 ve 3 bu sekılde yazılıp devam etsin bunu nasıl yapabılırım ?

 

[Emir Hüseyin Çoban]

. . .

Sub kod()
    
    k = InputBox("Kaç Seri Yazdırılacak ?")
    If k = "" Then Exit Sub
    Application.ScreenUpdating = False
    Range("A:A").ClearContents
    Sat = 1
    For i = 1 To k
        
        For a = 1 To 3
            For s = 1 To 7
                
                Cells(Sat, "A") = a
                Sat = Sat + 1
                
            Next s
        Next a
        
    Next i
    Application.ScreenUpdating = True
    MsgBox "B i t t i ", vbInformation, "  Hüseyin Çoban |  huseyincobann@gmail.com   "
    
End Sub

. . .

 

[semira_]

Dim i, j As Integer
sat = 0

For j = 1 To 3

For i = 1 To 7

Range("B" & i).Value = 1
Range("B" & i + 7).Value = 2
Range("B" & i + 14).Value = 3

sat = sat + 1


Next i

Next j


End Sub

 

[semira_]

ben kodu bu sekılde yazmıştım neden hata verdi calışmadı