Display Values of Column/Range/Array/Other

I am sure there is a better solution but this macro will update Column B with the Column A values everytime you run it.

Sub TEST()
Dim Ln As Integer
Dim Pop As Integer

Ln = 1
Pop = 1

'Counts the number of lines of data in Column A
Do Until Cells(Ln, 1) = ""
    Ln = Ln + 1
Loop

'Populates Column B with the formula down to the same number of rows as Column A has
Do Until Pop = Ln
    Cells(Pop, 2) = "=A" & Pop
    Pop = Pop + 1
Loop
End Sub

Thanks for the macro, Chris.

No probs, incidently I thought if you want it to update when any value is change/added in Column A then right click on your worksheet, select view code, and use the following. Any change to column A will then trigger this macro. Let me know if you need anymore help.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

Dim Ln As Integer
Dim Pop As Integer

Ln = 1
Pop = 1

If Target.Column = 1 Then

    Do Until Cells(Ln, 1) = ""
        Ln = Ln + 1
    Loop
    Do Until Pop = Ln
        Cells(Pop, 2) = "=A" & Pop
        Pop = Pop + 1
    Loop
End If

End Sub