Opdel af cellinformation

Hej alle eksperter!

Jeg har ett problem med Excel. Det er sådan at jeg vil dele navn op i flere celler ved en filindläsning og har fået et "script". Problemet er bare at jeg ikke vil lave min "Selection" selv uden den skal automatiskt välge fex. A kolonen.
Resultatet/Opdelningen skal derefter, såfremt det er muligt lägges i A og B kolonnen

Hvis det ikek er muligt at den overskriver samme kolonne så er det okay.

Håber på hjälp! :-)

-------------------

Option Explicit

Sub Separera_Namn()
'© 2002 Alla rättigheter XL-Dennis
Dim vaData As Variant, vaFNamn() As Variant, vaENamn() As Variant
Dim i As Integer

vaData = Selection.Value

ReDim vaFNamn(1 To UBound(vaData))
ReDim vaENamn(1 To UBound(vaData))

'Här separeras för- och efternamn och tilldelas till varsin matris
For i = 1 To UBound(vaData)
    vaFNamn(i) = Left(vaData(i, 1), Application.Find(" ", vaData(i, 1), 1))
    vaENamn(i) = Right(vaData(i, 1), Len(vaData(i, 1)) - Len(vaFNamn(i)))
Next i

Application.ScreenUpdating = False

'Här skrivs data tillbaka till arbetsbladet till initilliggande kolumner
With Selection
    .Offset(0, 1).Resize(UBound(vaFNamn)) = Application.Transpose(vaFNamn)
    .Offset(0, 2).Resize(UBound(vaENamn)) = Application.Transpose(vaENamn)
End With

Application.ScreenUpdating = True
End Sub