How do I create a macro to duplicate the current row?

[lorenzo]

I want to create a macro that will insert a blank row beneath the current row
and will then copy the contents of the current row to the inserted row.

I can do the operation manually but when I record it as a macro then run the
macro it is not quite right. It works fine if I want to add just one new
row. However, when I need run the macro to add further rows the macro always
returns me to the point (row) where the I ran it for the first time. Does
anyone know what I need to put into the macro, when editing it, to stop this
happening?

 

[Per Jessen]

Hi

As always post your macro for comments.

Look at this and see if it is what you need:


Sub InsertRowBelow()
ActiveCell.Offset(1, 0).EntireRow.Insert
ActiveCell.EntireRow.Copy Range("A" & ActiveCell.Row + 1)
End Sub

Regards,
Per

 

[Stefi]

This macro duplicates the row of the active cell:

Sub test()
Cells(ActiveCell.Row + 1, ActiveCell.Column).EntireRow.Insert
Shift:=xlDown
ActiveCell.EntireRow.Copy Destination:=Cells(ActiveCell.Row + 1,
ActiveCell.Column).EntireRow
End Sub

Regards,
Stefi


„lorenzo†ezt írta:

 

[Don Guillett]

Sub insertsamelinerow()
Rows(ActiveCell.Row).Copy
Rows(ActiveCell.Row + 1).Insert
Application.CutCopyMode = False
End Sub