Hello again,

Would someone take a look at this code and tell me where I'm going wrong. It's more of a copy and paste code. I started by doing a macros for coding an equation to convert pounds to stones + pounds. Once I got the equation into a VBA code, I tried to use a previous code and have the equation continue to convert the pounds cell to the stones + pounds cell after conversion, unfortunately this is where I've erred as I'm getting error code: 450.

Here's the code, highlighted is the copy and paste code I tried to use from an earlier code which works like a charm:

Sub PoundsToStonesPounds()
'
' PoundsToStonesPounds Macro
'
'   Keyboard Shortcut: Ctrl+S
    ActiveCell.Offset(0, 0).Range("A1").Select
    Intersect(ActiveSheet.Range, Range("AA:AA")).Select 'taking this out will only populate one cell at a time
    ActiveSheet.Paste
    ActiveCell.FormulaR1C1 = _
        "=CONCATENATE(ROUNDDOWN(RC[-5]/14,0), ""-"", MOD(RC[-5],14))"
    ActiveCell.Offset(1, 0).Range("A1").Select
MsgBox "finished"
End Sub
I'm trying to populate all cells that I have assigned for the sterling + pounds equation. When there are no more conversions to do, the code should stop.

CheerZ!
Wyldjokre69