VBA Create spaces before the first character wherever there is a number and a minus sign

[Slavio]

Hi guis,
Can someone help me with some code where I can v hroughout the Sheet in the table to check the data and change the data directly in the cell where the error is?

If there is a letter in the cell at the beginning, add a space before.
If the gap is already there then continue

A	B	C	D	E	F	G
H345	545.23	01-03-2021	mnoh	jupi	-032	Lopa25
<ODK	243	323	RLO	*564	12898874	B*>

What the table should look like after verification (The space is marked in bold)

H345	545.23	01-03-2021	mnoh	jupi	-032	Lopa25
<ODK	243	323	RLO	*564	12898874	B*>

Any idea?

 

[XLfriend777]

Hi Slavio - The code below may help you get started. Hope this helps.

Sub FirstChar()
'This First Character test is set to look at only Cell A1 or Cells(1,1).Value
    Dim xlString As String
    Dim xlFirstChar As String

    xlString = Cells(1, 1).Value

    xlFirstChar = Left$(xlString, 1)
    
'Test if first character is NOT numeric and if so - add a space before.
    If Not IsNumeric(xlFirstChar) Then
    MsgBox "Yes"
    xlString = " " & xlString
    
    Cells(1, 1).Value = xlString
    End If
    
End Sub