Acil yardım!! 🙏🏻🙏🏻Hücrede yazan sayı kadar satır yazmak

[esrakdbb]

Bir hücrede yazan sayı kadar baştaki satırdan eklemesi gerekiyor. Örnek vermek gerekir g1 hücresinde 6 yazıyor, a1 hücresinde x ismi 1 satırında genel olarak x isminin bilgileri mevcut. G1 de yazan sayı 6 olduğu için 6 satır alt alta bu 1 satırında yazanların yazmasını istiyorum. Ama bir türlü kod bulamadım yardım edebilir misiniz arkadaşlar

 

[Tevfik_Kursun]

Merhaba Arkadaş,
Aramıza hoş geldiniz
İstediğiniz bu mudur?

Sub Kopyala()
    Range("A2:F1000").ClearContents
    If [G1] = "" Then
        Exit Sub
      Else
        Range("A1:F1").Select
        Selection.Copy
        Range("A2:F" & 1 + [G1]).Select
        ActiveSheet.Paste
    End If
    Range("G1").Select
    Application.CutCopyMode = False
End Sub

İyi çalışmalar