Need macro that automatically inserts 12 rows, e.g. 12 lines items for each record

[loggiaaj]

123456
789123
456789

I want to insert 12 rows between each value! Thanks!

 

[My Aswer Is This]

Edit

 

[My Aswer Is This]

Some times doing things automatically has to have something to activate the script.
With this script if you enter data on a row when your done double click on Column(A) of the row with data and 12 copies of this row will be made below.
Now this script only copies values. If you need formatting also you will need to let me know.

This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet tab
Select View Code from the pop-up context menu
Paste the code in the VBA edit window

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Modified 3-9-18 3:25 PM EST
Cancel = True
Dim ans As Long
ans = Target.Row
If Target.Column = 1 Then
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
Rows(ans).Resize(12).Value = Rows(ans).Value
End If
End Sub

 

[My Aswer Is This]

If you need formatting also try this:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Modified With Formatting 3-9-18 3:50 PM EST
Cancel = True
Dim ans As Long
ans = Target.Row
If Target.Column = 1 Then
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
Rows(ans).Copy Rows(ans).Resize(12)
End If
End Sub