"Расцепить" данные макросом

[Евгений Таб]

Коллеги, доброго дня!

Прошу помощи в реализации макроса.
Во вложении 2 столбика с данными(лист1).
После работы макроса нужно "разцепить" данные(лист2).
Все через точку сделать с столбик и подтянуть даты.

Спасибо огромное!!!!!

[kalbasiatka]

Sub uuu()
    Dim a()
    Dim sp
    Dim i&, rw&
    With Sheets("Sheet1")
    a = .Range("A1", .Cells(Rows.Count, 2).End(xlUp)).Value
    End With
    For i = 1 To UBound(a)
        For Each sp In Split(a(i, 1), ".")
            rw = rw + 1
            With Sheets("Sheet2")
                .Cells(rw, 1) = sp
                .Cells(rw, 2) = a(i, 2)
            End With
        Next
    Next
End Sub

[Евгений Таб]

Спасибо! А можно прикрутить открытие(создание) файла вида

PHP код:

Format(Now, "dd.mm.yyyy - hh.mm") & ".txt" 


и туда скопировать получившиеся чудо? между столбами "табуляция"

Спасибо!