はじめて質問させて頂きます。
VBA初心者ですが、宜しくお願いします。

CSVデータをエクセルにコピペしてから処理することを考えています。
CSVのデータはエクセルで開くと以下の様に入力されています。

　　　　｜　　　 　　A列　　　　　　｜　 B列　｜ 　C列　｜
１行目｜　　　日付 時刻　　　　｜データ１｜データ２｜
２行目｜2014/5/14　13：00：01｜　　○　 ｜　　△　 ｜
３行目｜2014/5/14　13：00：14｜　　○　 ｜　　△　 ｜

時刻は24h制で入力されています。
A列の日付と時刻の間にはスペースがあり、これをVBAでスペース区切りをしたいのです。
B列に列を追加し、スペース区切りの処理をしようと思い、自動記録すると以下のようになりました。

Sub Macro1()
　　　　Columns("B:B").Select
　　　　Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
　　　　Columns("A:A").Select
　　　　Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
　　　　　TextQualifier:=xlNone, ConsecutiveDelimiter:=True, Tab:=True, Semicolon _
　　　　　:=False, Comma:=False, Space:=True, Other:=False, FieldInfo:=Array( _
　　　　　Array(1, 5), Array(2, 1)), TrailingMinusNumbers:=True
End Sub

ところが、このマクロを実行すると「コピーまたは移動先のセルの内容を置き換えますか？」のメッセージが表示されます。(記録する際には表示されませんでした。)
原因を探ったところ、自動記録のマクロを実行すると時刻が12時間制に変更されB列に、
C列にAM/PMが書き込まれます。(A列の日付は問題なく処理されます。)

B列に24時間制の時刻が書き込まれるようにしたいのですが、
何か不足してるとことがあるのでしょうか？

方法を教えて下さい。
お手数ですが、宜しくお願いします。