Copy and Paste Macro

[FM1]

Hi everyone. I need some help on a copy and paste macro. Basically I need the macro to perform a few actions:

1. In whatever cell is selected when the macro is run, enter a new row.

2. Copy the information from the row directly above the new row and paste (values, formulas, formats, etc) into the new row.

3. Return to column P in the new row, i.e if the new row is row 11, then return to P11, for row 12 return to P12, etc.

I have tried recording the macro but because it is hard coded to specific rows, its not working.

I have attached a sample copy of the sheet (had to zip due to the size of the file). Any help will be greatly appreciated. Thanks in advance.

[Richard Buttrey]

Hi,

Macros code as follows to achieve all three:

ActiveCell.Offset(1, 0).EntireRow.Insert
ActiveCell.EntireRow.Copy Destination:=Range("A" & ActiveCell.Row + 1)
Range("P" & ActiveCell.Row + 1).Select

HTH

[shg]

Sub x()
    With Selection
        .EntireRow.Copy
        .Offset(1).EntireRow.Insert
        Application.CutCopyMode = False
        Cells(.Row + 1, "P").Select
    End With
End Sub

[FM1]

Hi,

Macros code as follows to achieve all three:

ActiveCell.Offset(1, 0).EntireRow.Insert
ActiveCell.EntireRow.Copy Destination:=Range("A" & ActiveCell.Row + 1)
Range("P" & ActiveCell.Row + 1).Select

HTH

Sub x()
    With Selection
        .EntireRow.Copy
        .Offset(1).EntireRow.Insert
        Application.CutCopyMode = False
        Cells(.Row + 1, "P").Select
    End With
End Sub

Hi guys. Both macros worked perfectly (just operate in different ways). Thanks very much for your help.