Sub KTH()
With ActiveSheet
For i = .Range('A65536').End(xlUp).Row To 1 Step -1
.Cells(i, 2) = Mid(.Cells(i, 1), 1 + WorksheetFunction.Find(' ', .Cells(i, 1), 1), Len(.Cells(i, 1)) - WorksheetFunction.Find(' ', .Cells(i, 1), 1) - 1)
Next i
End With
End Sub