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?

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

"lorenzo" skrev i meddelelsen
...
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?

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:

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?

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

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"lorenzo" wrote in message
...
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?