Macro to Autofill Down

[TXRH]

Hello,

I recorded a macro and it wrote the code using specifics:

Sub Macro7()
Range("A1").Select
Selection.End(xlDown).Select
Selection.AutoFill Destination:=Range("A92:A151")
Range("A92:A151").Select
Range("A1").Select
Selection.End(xlDown).Select
Selection.AutoFill Destination:=Range("A152:A156")
Range("A152:A156").Select
End Sub

Those ranges are going to vary. Basically I want a macro to:
Ctrl+Home
Ctrl+[down arrow]
Then fill down that cell until the next value

Any suggestions how to deal with the destination range?

Thank you!

 

[VoG]

Perhaps

Sub eeeee()
Dim LR As Long
LR = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
Range("A1").AutoFill Destination:=Range("A1:A" & LR)
End Sub

 

[cjcobra]

Use this to select using the Ctrl-Down

Range(ActiveCell, ActiveCell.End(xlDown)).Select

 

[TXRH]

Here is what I went with

Range("A1").Select
Selection.End(xlDown).Select
Selection.AutoFill Destination:=Range(ActiveCell, ActiveCell.End(xlDown).Offset(-1, 0))

Thank you for your help!

 

[vbanoguru]

I just joined this form to express my thanks for your post. Your post brought an end to my 4 hour of frustration.

Perhaps

Sub eeeee()
Dim LR As Long
LR = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
Range("A1").AutoFill Destination:=Range("A1:A" & LR)
End Sub