VBA to duplicate selected rows

[scotthannaford1973]

Hi
I have a spread sheet which has the same three rows repeated throughout a worksheet; I have VBA which will copy a single row (below), but I'd ideally like to manually select the rows I want to copy (they will always be three or four in a row, no extra rows between them) and then click a button to copy the selected rows and paste duplicates below the bottom copied one...

Sub InSert_Row()
ActiveCell.EntireRow.Copy
ActiveCell.Offset(1).EntireRow.Insert Shift:=xlUp
End Sub

 

[Fluff]

How about

Sub Addrws()
   With Selection
      .EntireRow.Copy
      .Offset(Selection.Rows.Count).EntireRow.Insert
   End With
End Sub

 

[scotthannaford1973]

How about

Sub Addrws()
   With Selection
      .EntireRow.Copy
      .Offset(Selection.Rows.Count).EntireRow.Insert
   End With
End Sub

Thanks, Mr Fluff - that works like a dream!

 

[Fluff]

Glad to help & thanks for the feedback