EOF Range

J

John Wilson

dayton,

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

John
 
D

dayton

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.
 
K

keepitcool

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 >
 
Top