Copy and paste multiple times

[Deepakpilla36]

Hello All,

I have a problem in writing a code to copy and paste multiple times.

I have 2 sheets, where in sheet 1 I have 160 Rows and 3 columns.
I need to copy each row and paste 15 times in sheet 2.

can anyone help me to sort it out.

 

[My Aswer Is This]

Try this:
The script copies only the values not the formatting I assume that is OK
Run this script from Sheet1

Sub Copy_Each_Row()
'Modified 5/19/2022  5:28:18 AM  EDT
Application.ScreenUpdating = False
Dim i As Long
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Dim Lastrowa As Long
Lastrowa = Sheets(2).Cells(Rows.Count, "A").End(xlUp).Row

For i = 1 To Lastrow
    Lastrowa = Sheets(2).Cells(Rows.Count, "A").End(xlUp).Row + 1
Sheets(2).Rows(Lastrowa).Resize(15).Value = Sheets(1).Rows(i).Value
Next
Application.ScreenUpdating = True
End Sub