Celleopdeling

Hej alle Eksperter!

Jeg har et spørgsmål vedrørende opdelning af en celle
Celle 1
Jan Larsen

Opdeles således

Celle1  Celle2
jan    Larsen

Jeg har følgende kode og den virker fint nok, men jeg vil gerne have at resultatet flyttes over til et nyt ark (Sheet2) Beregningen skal fortsat laves i Sheet1.

Jeg får også fejlmeddelelse hvis fex. .,-*-/ ingår i beregningen.
Hvordan undgår jeg dette? :-)

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

Option Explicit
Option Base 1
Sub Separera_Namn()

Dim vaData As Variant, vaFNamn As Variant
Dim i As Integer, Start As Range
Set Start = Range("c3")

vaData = Range(Start.Address, Cells(65536, Start.Column).End(xlUp).Address)
ReDim vaFNamn(UBound(vaData), 2)
For i = 1 To UBound(vaData)
    vaFNamn(i, 1) = Left(vaData(i, 1), Application.Find(" ", vaData(i, 1), 1))
    vaFNamn(i, 2) = Right(vaData(i, 1), Len(vaData(i, 1)) - Len(vaFNamn(i, 1)))
Next i
Start.Resize(i - 1, 2) = vaFNamn
End Sub