View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.misc
Chance224 Chance224 is offline
external usenet poster
 
Posts: 21
Default Copying row & inserting

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