Dim
rng
As
Excel.Range
Set
rng = Range(
"A1:A100"
)
rng.Insert xlShiftToRight
rng.Offset(, -1).Formula2R1C1 =
"=VALUE(LEFT(RC[1],FIND("
" "
",RC[1])-1))"
rng.Offset(, -1).Resize(, 2).Sort rng.Offset(, -1).Cells(1), xlAscending, Header:=xlGuess
rng.Offset(, -1).Delete xlShiftToLeft