Possibly...
Sub testparse()
Dim v As Variant, w As Variant
Dim x As Long
Dim a As String, b As String
With ActiveSheet
v = Intersect(.Columns("C"), .UsedRange)
w = v
For x = LBound(v) To UBound(v)
a = Left(v(x, 1), InStr(1, v(x, 1), "PAYEE") - 2)
b = Mid(v(x, 1), InStr(1, v(x, 1), "PAYEE") + 6, InStr(1, v(x, 1), " $*") - (InStr(1, v(x, 1), "PAYEE") + 6))
v(x, 1) = a
If IsNumeric(b) Then
w(x, 1) = b
Else
w(x, 1) = ""
End If
Next x
Intersect(.Columns("C"), .UsedRange) = v
Intersect(.Columns("C"), .UsedRange).Offset(, 1) = w
End With
End Sub
Bookmarks