Copy and Paste rows down using macros

[kam4b7]

I am trying to copy each row and insert the copied cell down 11 times in the same worksheet using macros. I am an extreme beginner when it comes to VBA. So I appreciate the help if anyone knows how to execute this code to get this to work.

Example is below:

Before:
A A A A
B B B B
C C C C
D D D D


After:
A A A A
A A A A
A A A A
A A A A
............ x11 for a total of 12 A A A A rows
B B B B
B B B B
........... x11 for a total of 12 B B B B rows
C C C C
C C C C
........... x11 for a total of 12 C C C C rows

and so on.

 

[Scott T]

try

Sub copydown()
Dim lr As Long
Dim ft As Boolean
lr = Cells(Rows.Count, 1).End(xlUp).Row
ft = True
For x = lr To 1 Step -1
    If ft = True Then
        ft = False
        Rows(x).EntireRow.Copy Cells(x + 1, 1).Resize(11)
    Else
        Rows(x + 1 & ":" & x + 11).EntireRow.Insert
        Rows(x).EntireRow.Copy Cells(x + 1, 1).Resize(11)
    End If
Next x

End Sub

 

[Fluff]

try

Sub copyDownRw()

    Dim cnt As Long
    
    For cnt = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
        Rows(cnt + 1).Resize(11).Insert
        Rows(cnt).Resize(12).FillDown
    Next cnt

End Sub

 

[kam4b7]

It worked well. Thank you so much, really appreciate the help.

 

[Fluff]

Glad we could help & thanks for the feedback