Insert a blank at the beginning of all cells in a specific column

[Danny54]

I need to insert a space at the beginning of each cell so they all match.
So the first two rows would have to have the space inserted.
Is there a easy way to do this. VBS is a option if needed.

abc

abc

abc

abc

 

[Danny54]

The sample data above should show
data in row 1 and 2 starts without a blank 'abc' 'abc'
data in row 3 and 4 starts with a blank ' abc' ' abc'

after inserting the blank beginning in each row the rows would look like this
' abc'
' abc'
' abc'
' abc'

I could manually insert the blank for a few rows but I have hundreds

Thanks

 

[kevin9999]

Perhaps this? (run it from the sheet of interest & adjust the range/column to suit)

Option Explicit
Sub Add_Space()
    Dim i As Long, ar
    ar = Range("A1", Cells(Rows.Count, "A").End(xlUp))
    
    For i = 1 To UBound(ar, 1)
        Select Case Left(ar(i, 1), 1)
            Case Is = " "
                ar(i, 1) = ar(i, 1)
            Case Else
                ar(i, 1) = " " & ar(i, 1)
        End Select
    Next i
    Range("A1", Cells(Rows.Count, "A").End(xlUp)).Value = ar
End Sub

 

[Danny54]

Perhaps this? (run it from the sheet of interest & adjust the range/column to suit)

Option Explicit
Sub Add_Space()
    Dim i As Long, ar
    ar = Range("A1", Cells(Rows.Count, "A").End(xlUp))
   
    For i = 1 To UBound(ar, 1)
        Select Case Left(ar(i, 1), 1)
            Case Is = " "
                ar(i, 1) = ar(i, 1)
            Case Else
                ar(i, 1) = " " & ar(i, 1)
        End Select
    Next i
    Range("A1", Cells(Rows.Count, "A").End(xlUp)).Value = ar
End Sub

Thanks Kevin

 

[kevin9999]

Thanks Kevin

You're welcome Danny, and thanks for the feedback.