On Nov 27, 8:23*pm, OssieMac
wrote:
Hi Steve,

Hope I have interpreted your question correctly. Ensure that you back up
your data first just in case.

Note that a space and underscore at the end of a line is a line break in an
otherwise single line of code.

Sub CopyPasteFormula()

Dim rngActiveCell As Range
Dim lngRow As Long

Set rngActiveCell = ActiveCell

lngRow = rngActiveCell.Offset(0, -1) _
* .End(xlDown).Row

rngActiveCell.Copy _
* Destination:=Range(rngActiveCell, _
* Cells(lngRow, rngActiveCell.Column))

End Sub

--
Regards,

OssieMac

A big thank you.
The code worked great.

Cheers,

Steve