Comparar fechas!!

Que tal!!

Tengo un pequeño problema para filtrar unas fechas de una columna, tengo dos fechas que obtengo de una caja de textos...

Asi las obtengo:

FechaOrigen = Format(Caja1.Text, "mm/dd/yyyy hh:mm")

FechaDestino = Format(Caja2.Text, "mm/dd/yyyy hh:mm")

Fecha1 = CDate(FechaOrigen)

Fecha2 = CDate(FechaDestino)

Teniendo las primeras dos variables de arriba como DATE y las otras dos variables como DOUBLE

Posteriormente tengo este codigo que es donde selcciono la hoja origen y toda la columna de fechas:

Sheets(HojaDescargada).Select 'HojaDescargada es una variable tipo String

Range("C2").Select

Range(Selection, Selection.End(xlDown)).Select

Selection.AutoFilter

Es aqui donde obtengo el error

ActiveSheet.Range("$C$2:$C$C").AutoFilter Field:=1, Criteria1:= _ '$C$9698

">=" & Fecha1, Operator:=xlAnd, Criteria2:="<=" & Fecha2

Como a la hoja se le siguen introduciendo datos pense que con $C$C buscaria en todas sin poner un numero entero,

tengo 9698 filas y si lo cambio no me esta filtrando bien, ¿Tengo un problema en mi codigo?

Posteriormente quiero agregar el resultado del filtro a una nueva pestaña y agregue este codigo

Range(Selection, Selection.End(xlToLeft)).Select

Selection.Copy

Sheets(Nombre).Select 'Otro String con nombre de la hoja nueva hecha anteriormente

ActiveSheet.Paste

Sheets(HojaDescargada).Select

Range(Selection, Selection.End(xlToRight)).Select

Application.CutCopyMode = False

Selection.Copy

Sheets(Nombre).Select

Range("C2:CC").Select

ActiveSheet.Paste

Obtuve este codigo de un macro grabada pero quisiera que la variable en rojo ajuste al numero de filas y bueno teniendo eso que filtre mis datos