macro to insert rows and copy and paste

  • Thread starter Thread starter STEVE
  • Start date Start date
S

STEVE

Here is a macro that a gentleman created for me and I need
the macro to copy and paste all 5 columns down, and also
it is inserting the number of rows in column D which is
great but I need it to subtract one row from column D
value.
Example of spreadsheet is

customer order# item quantity date price
steve 100001 pepsi 3 06/03/04 10.00
jack 100002 coke 8 06/01/04 25.00
thanks a bunch
 
Steve,
I think this is what you are looking for:

Sub insertXrows_copydn()
On Error Resume Next
For i = 16 To 2 Step -1
X = Cells(i, "d") - 1
Y = Range(Cells(i, 1), Cells(i, 6)).Value
Cells(i, "a").Resize(X, 1).EntireRow.Insert
Cells(i, "a").Resize(X, 6).Value = Y
Next i
End Sub
 
Back
Top