Hvorfor virker følgende vbakode ikke

Hej
Er der nogen der kan gennemskue hvorfor følgende kode ikke virker.


Public Sub Create_graf()

Dim R As Long, Data As Variant, I As Long, X As Integer, Data2 As Variant
   
   
    Sheet17.Columns("A:B").ClearContents    ' tømmer kolonne A og B i det ark du står på
    Data = Sheet2.Range("B13").CurrentRegion 'læses ind i variablen Ddata
   
    R = 1
    For I = 1 To UBound(Data)

        If Data(I, 2) >= [D9] And Data(I, 2) <= [F9] Then 'Data(I, 1)
            For X = 1 To UBound(Data, 2) ' skriver i det aktive ark
                Cells(I, 1) = Data(I, 2)
                Cells(I, 2) = Ark1.Cells(I, 5)
               
            Next
           
            R = R + 1
     
           
        End If
    Next
End Sub



Jeg har et ark hvor der er en lang liste nedaf med datoer. Starter i celle B13. I et andet ark har jeg celle "D9" hvor man skriver start dat og celle "F9" hvor man skriver slutdato. I kolonne A og B vil jeg så have samme ark til at skrive den periode man vælger. Min makro stopper ved følgende linje når jeg kører den "If Data(I, 2) >= [D9] And Data(I, 2) <= [F9]"

Håber virkelig nogen har en ide om hvad fejlen kan være, for har virkelig brugt mange timer på at forsøge at løse det...

På forhånd tak