Macro for cutting text

Try this:

Sub Asterisk()
Dim lr As Long
Dim i As Long
lr = Range("A" & Rows.Count).End(xlUp).Row
Dim j As Long

For i = 1 To lr
j = InStrRev(Range("A" & i), "*")
'MsgBox (j)
Range("B" & i) = Right(Range("A" & i), Len(Range("A" & i)) - j)
Next i


End Sub