Copying row & inserting

G

Guest

I'm using the macro below to insert a number of rows specified by a user. I
need to have it copy the row above the selected cell and insert the number of
rows specified and then delete the data in columns A,B,J,L in the rows
inserted.

Sub InsertRows()
Dim Rng
Rng = InputBox("Enter number of rows required.")
Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(Rng - 1, 0)).Select
Selection.EntireRow.Insert
End Sub

Thanks,
Chance
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Trying to insert a column using variable in a Macro 1
After Macro runs, no cell activated - what am I missing? 2
insert row with logic 3
Excel VBA - insert row & copy formulas 1
Loop to run macro each row 1
Code does not error but no copy either 4
Fill Blanks Macro 2
evaluting cell contents for "type" and add row if the cell is bla 2

Top