Copy active row to row 5

[ipbr21054]

With my work I enter values in each cell from column A to AD

Now & then the same customer returns for a second or third job.
I would like to save time & be able to copy all the values in that customers row to row 5
It would be put on a command button & work like so.

Select the customer in column A
Run the code on the command button which will copy the values from A to AD
Insert new row at row 5
Now paste the copied values into the new row that was just created.

Please advise many thanks.

 

[MARK858]

Intersect(ActiveCell.EntireRow, Range("A:AD")).Copy

Will give you the range to copy, the rest is easy enough to record with the macro recorder

 

[ipbr21054]

Thanks

 

[MARK858]

You're welcome