Excel - Problema con Selection.AutoFill

Hola:

Amigos tengo un inconveniente con excel, necesito copiar una formula de la columna A1 hasta la columna A3000, para esto utilizo el metodo Selection.AutoFill. El problema es que solo copia la formula, de manera correcta, hasta la fila A1500 y para las demas copia el valor de la celda A1.

codigo:

Range("A1").Select 'Fórmula celda adyacente...
Selection.AutoFill Destination:=sThisWorkBook.Sheets("vendedores").Range
("A1:A3000"), Type:=xlFillValues

Resultado:

Fila A B
=====================
1 08401 85
2 85101 85
3 85102 85
4 85103 85
5 85104 85
....
1501 08401 85
1502 08401 85
1503 08401 85
1504 08401 85
.....
3000 08401 85

desde ya, agredecido por su ayuda.

Hola

Ya probe con mi codigo que funciona bien
primero debe tener 2 celdas minimas. Por ejemplo A1 = 08301 y A2 = 08302
y selecciona codigo

Range("A1:A2").AutoFill Destination:=Range("A1:A3000"), Type:=xlFillValues

Espero que te sirva mucho ;)

Un saludo desde Ambato, Ecuador
SCM