I use the following in my macro:
Selection.AutoFill Destination:=Range("I2:I111")

The problem I have is that the ending range (I111) worked great the first
time, but now my files are different sizes. Is there a EOF range I can use.
I need the range to always select the "end of file".


T.I.A.

dayton,

you could try the following:
Selection.AutoFill Destination:=Range(Range("I2"),Range("I65536").End (xlUp))

John

dayton wrote:

I use the following in my macro:
Selection.AutoFill Destination:=Range("I2:I111")

The problem I have is that the ending range (I111) worked great the first
time, but now my files are different sizes. Is there a EOF range I can use.
I need the range to always select the "end of file".

T.I.A.

These should do nicely
1st checks from the last cell in column upwards
2nd does the entire column within the usedrange

Both Fill from row2


Sub FillColumnRow2Last()
Dim r
With ActiveCell
Set r = Range(Cells(2, .Column), Cells(65536, .Column).End(xlUp))
End With
r(1).AutoFill r
End Sub

Sub FillColumnRow2Used()
Dim r
With ActiveSheet.UsedRange
Set r = Range(Cells(2, ActiveCell.Column), _
Cells(.Row + .Rows.Count - 1, ActiveCell.Column))
End With
r(1).AutoFill r
End Sub



keepITcool

< email : keepitcool chello nl (with @ and .)
< homepage: http://members.chello.nl/keepitcool


"dayton" wrote:

I use the following in my macro:
Selection.AutoFill Destination:=Range("I2:I111")

The problem I have is that the ending range (I111) worked great the
first time, but now my files are different sizes. Is there a EOF range
I can use. I need the range to always select the "end of file".


T.I.A.