Splitte celle til to kolonner

Jeg har en meget lang kolonne med disse data i samme celle:

10.05.2012 11:14:04

Jeg har fået bikset følgende VBA kode sammen men den kan kun tage en celle ad gangen. Kan I hjælpe med at få den til at løbe hele kolonnen igennem?

Sub SplitCelle()
    Dim txt As String
    txt = ActiveCell.Value
    ActiveCell.Value = Left(txt, 10)
    ActiveCell.Offset(0, 1).Value = Mid(txt, 12, Len(txt))
End Sub