Macro to add spaces to beginning of each cell value

I am in the process of trying to create a macro that will insert two spaces to the beginning of each cell in an entire column. I have created it to successfully select an entire column but I can't seem to get the macro to add the two spaces before the text in the cell. My macro is as follows:

Sub Macro3()
'
' Macro3 Macro
'
' Keyboard Shortcut: Ctrl+z
'
    ActiveCell.Columns("A:A").EntireColumn.Select
    
    'cell.Value = cell.Value & "  "

ActiveColumn.Value = ActiveColumn.Value & "  "
          
End Sub

Any ideas on what is wrong in my code? Thank you.