VBA to copy a row and paste it in the next blank row

[shafiq2]

Hi,

I am looking for a VBA script to copy row A2 to H2 if K2 has a value if K2 is blank then nothing.

For example

Column A	Column B	Column C	Column D	Column D	Column F	Column G	Column H	Column I	Column J	Column K
Product name	company name	Date	Item number	Serial Number	Product type	Color	Period			Unit required
A	B		100	1020	601	Green	One week			4
B	A	X	102	1010	600	Blue	3 days
Result
Column A	Column B	Column C	Column D	Column D	Column F	Column G	Column H
Product name	company name	Date	Item number	Serial Number	Product type	Color	Period
A	B		100	1020	601	Green	One week
B	A	X	102	1010	600	Blue	3 days
A	B		100	1020	601	Green	One week
A	B		100	1020	601	Green	One week
A	B		100	1020	601	Green	One week

<colgroup><col style="width: 71pt; mso-width-source: userset; mso-width-alt: 3437;" width="94"> <col style="width: 77pt; mso-width-source: userset; mso-width-alt: 3730;" width="102"> <col style="width: 50pt; mso-width-source: userset; mso-width-alt: 2450;" width="67"> <col style="width: 48pt;" width="64"> <col style="width: 75pt; mso-width-source: userset; mso-width-alt: 3657;" width="100"> <col style="width: 65pt; mso-width-source: userset; mso-width-alt: 3145;" width="86"> <col style="width: 50pt; mso-width-source: userset; mso-width-alt: 2450;" width="67"> <col style="width: 53pt; mso-width-source: userset; mso-width-alt: 2560;" width="70"> <col style="width: 50pt; mso-width-source: userset; mso-width-alt: 2450;" span="2" width="67"> <col style="width: 71pt; mso-width-source: userset; mso-width-alt: 3437;" width="94"> <tbody>
</tbody>

 

[shafiq2]

<tbody>
</tbody>

Hi, I have created the following VBA code which copy row A2:I2 and paste it multiple time in the next blank row based on the value in column J2, so how to amend this code to move to the next row A3:I3 and paste it multiple time based on the value in J3 and then move on until the last used row.

Dim rws As Long
Dim rws1 As Long




With Range("A2:I2")
rws = .Rows.Count
rws1 = Cells(Rows.Count, 1).End(xlUp).Row
If Range("j2") > 0 Then

.Resize(rws).Copy Destination:=.Offset(rws1).Resize(rws * Range("J2").Value)
End If

End With

Thanks for your help.