Text in Spalte Teilen

Private Sub Text_Backup_6_Spalte_A_Teilen_in_3_Spalten()
'2 Spalten Einfuegen
Columns("B:C").Select: Selection.Insert Shift:=xlToRight
'Spalte, die geteilt werden soll
Columns("A:A").Select
'Spalte Teilen und als Text formatieren
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, FieldInfo:=Array(  _
_
Array(0, 2), Array(10, 2), Array(12, 2)), TrailingMinusNumbers:=True
'Spaltenbreite Automatisch anpassen
Columns("A:C").Select: Columns("A:C").EntireColumn.AutoFit
Range("A1").Select
End Sub

Wenn ich es ausfuehren moechte, werde ich gefragt, ob die "destination cells" replaced werden solle.
Wie kann ich das abstellen.
Dank und Gruss
mehmet