Basit Bir problemim var üstadlar

[ybakar20]

Excel Dosyamın Linki http://www.dosya.tc/server15/8jzm80/3x33x100.xlsx.html
Merhabalar arkadaşlar excel dosyamın örneğini ekte yükledim. Sorunum Şu çok basit gelebilir ama takıldım ben . dosyada görmüş olduğunuz gibi sticker için aynı bilgilerden 3638 den başlayan Bundle numarası kısmını 4000e kadar bir defada nasıl kopyalayabilirim tüm bilgiler aynı olacak sadece Bundle yazan sayı artarak kopyalanacak. Şimdiden yardımınız için teşekkür ederim hepinize Hayırlı akşamlar.

 

[askm]

Sub askm()
Application.ScreenUpdating = False
Sayi = 3638
For i = 1 To 5000 Step 10
If Sayi > 4000 Then GoTo Devam
    For x = 1 To 3
        Range("A1:A10").Copy
        Cells(i, x).Select
        ActiveSheet.Paste
        Cells(i + 2, x) = "Bundle No: " & Sayi
        Sayi = Sayi + 1
    Next x
Next i
Devam:
Application.ScreenUpdating = True
End Sub