Forfaldsliste i excel med makro

hej eksperter

jeg er ved at lave en forfaldsliste i excel, det foregår ved at jeg kører en query, og trækker det ind i excel, i en tabel. min dato står i e2 i formatetet 20120625 tekst, jeg kopierer feltet ind i z2, og formaterer til dato, for at kunne regne på datoen, men jeg får nedenstående fejl

Run time '1004'

kunne ikke opdele teksten, da der ikke var nogle markerede data

sådan ser min makro ud

Sheets("Data").Select
    Range("z1").Select
    Selection.Copy
    Sheets("Inddata").Select
    Columns("Z:Z").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Selection.TextToColumns Destination:=Range("Z:Z"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 5), TrailingMinusNumbers:=True

På forhånd tak