EOF Range

  • Thread starter Thread starter John Wilson
  • Start date Start date
J

John Wilson

dayton,

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

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