Macro Help Required - Run script until no more data in column. Possible loop needed?

All you need is this code

Dim lrow As Long
lrow = Range("A" & Rows.Count).End(xlUp).Row
Range("B1:B" & lrow).FormulaR1C1 = "=""'""&RC[-1]&""',"""

You can then include the code to copy pastespecial values if required.