Created a macro that inserts rows based on the number value in a certain
column. So if the column (EL2) shows 3, then the macro will insert 3 rows
beneath that row. However, the macro also copies all of the data from that
row. Would like to find a way to only copy certain columns to the row below.
So instead of the entire row being copied, say insert rows and only copy
columns A through R below.
Here's the macro. Iknow the probelm is in the [cell.EntireRow.Copy
Destination:=cell.Offset(1, 0).EntireRow] section, just can't figure out how
to change it
Thanks for any input


Sub addrows()

Dim cell, cell1 As Range
Set cell = Range("B2")

Do Until cell = ""

Set cell1 = cell.Offset(1, 0)

For i = 1 To cell.Value
cell.Offset(1, 0).EntireRow.Insert
cell.EntireRow.Copy Destination:=cell.Offset(1, 0).EntireRow
Next i

Set cell = cell1

Loop

End Sub