[table="width: 500"]
[tr]
[td]Sub RegX2()
Dim LastRow As Long
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
Range("B1:B" & LastRow) = Evaluate(Replace("IF(ISNUMBER(FIND(""-"",A1:A#)),REPLACE(A1:A#,1,FIND(""-"",A1:A#),""""),IF(B1:B#="""","""",B1:B#))", "#", LastRow))
Columns("A").Replace "-*", "", xlPart
End Sub[/td]
[/tr]
[/table]