Replacing text or separting into 2 or more columns

[MrByte]

I have a general idea where I want to go with this. But I am looking for guideance on how to do it.

I have a column with something like this: 5 of 10* or 245 of 390

I want to separate this into two or more columns. Sure I can easily do it with a formula or even the Text to Columns menu option. But I would like to do it with a macro.

The two numbers are going into two columns the * will be replaced with RO.

Thanks for the help in advance.

 

[onlyadrafter]

Hello,

does this work as expected?

Sub TXT_TO_COLS()
    Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=True, OtherChar:= _
        "_", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
        TrailingMinusNumbers:=True
    Columns("B:B").Select
    Selection.Delete Shift:=xlToLeft
    For MY_ROWS = 1 To Range("A65536").End(xlUp).Row
        If Right(Range("B" & MY_ROWS).Value, 1) = "*" Then
            Range("C" & MY_ROWS).Value = "RO"
            Range("B" & MY_ROWS).Value = Left(Range("B" & MY_ROWS).Value, Len(Range("B" & MY_ROWS).Value) - 1)
        End If
    Next MY_ROWS
End Sub

 

[MrByte]

Yep! Did exactly what I wanted. Although I was tyring to figure out the code myself. This worked fine. Now I just need to figure out what you did. I am still pretty basic when it comes to coding.