Range Selection shouldn't be this difficult!

S

SFWhite

I want to simply select this cell and the next 25 cells for a quick
fill down.

Range("A2:A25").Select
Selection.FillDown

The above works fine.

BUT -

I want to do this from any cell I am sitting on: (For example)

Range("RC[1]:R[24]C[1]").Select
Selection.FillDown

I cannot make this work with any combination of anything I have tried
or found on this ng.

Anyone have a suggestion?

Thanks in advance.
 
B

Bernie Deitrick

SF,

ActiveCell.Range("A1:A25").Select
Selection.FillDown

or just

ActiveCell.Range("A1:A25").FillDown

HTH,
Bernie
MS Excel MVP
 
J

John Wilson

SFWhite,

Try this:

Sub TestMe()
Range(Range(ActiveCell.Address), _
Range(ActiveCell.Address).Offset(23, 0)).FillDown
End Sub

John
 
B

Beto

SFWhite said:
I want to do this from any cell I am sitting on: (For example)

Range("RC[1]:R[24]C[1]").Select
Selection.FillDown

I cannot make this work with any combination of anything I have tried
or found on this ng.

Anyone have a suggestion?
Click to expand...

Sub Fill25CellsDown()
Selection.Resize(25, 1).Select
Selection.FillDown
End Sub

Regards,
 
Top