Dim i as long
Dim sourceRange as Range
Dim fillRange as Range
i = 10000
Set sourceRange = Worksheets("Sheet1").Range("A2")
Set fillRange = Worksheets("Sheet1").Range("A2:A" & i)
sourceRange.AutoFill Destination:=fillRange

OR

Dim sStr as String
Dim i as long
Dim sourceRange as Range
Dim fillRange as Range
i = 10000
sStr = "A" & i
Set sourceRange = Worksheets("Sheet1").Range("A2")
Set fillRange = Worksheets("Sheet1").Range("A2:"& sStr)
sourceRange.AutoFill Destination:=fillRange

--
Regards,
Tom Ogilvy

"Tom Ogilvy" wrote in message
...
Dim i as long
Dim sourceRange as Range
Dim fillRange as Range
i = 10000
Set sourceRange = Worksheets("Sheet1").Range("A2")
Set fillRange = Worksheets("Sheet1").Range("A2:A" & i)
sourceRange.AutoFill Destination:=fillRange--
Regards,
Tom Ogilvy

"Alex" wrote in message
om...
hello,
i'm just a rookie...

selection.autofill destination.range("A2:A10000")

I'd like to replace the a10000 with a variable...

can help?.
thanks,

Ale.