Drag formula up dynamically

[RioDegenero]

Hi,

Any help on VBA code to "drag up" formula or "copy" formula up dynamically will be appreciated.

I will like to drag the formula in cell B25 up until B2 preferably (if not then B1 is fine). The starting row will not always be cell B25 every time as per the picture below. So I need the formula to be dynamic.
The formula is "EOMonth(B26,1)"
Recording the code, I have this:
Range("B25").Select
Selection.AutoFill Destination: = Range("B2:B25"), Type: = xlFillDefault
Range("B2:B25").Select

 

[Fluff]

How about

Sub RioDegenero()
    Range("B2:B25").FillUp
End Sub

 

[smozgur]

Have you tried xlFillCopy as the type parameter?

Range("B25").AutoFill Destination:=Range("B2:B25"), Type:=xlFillCopy

 

[RioDegenero]

Have you tried xlFillCopy as the type parameter?

Range("B25").AutoFill Destination:=Range("B2:B25"), Type:=xlFillCopy

Thanks for the suggestion. No I have not tried it, I want it to be dynamic because the starting cell will not always be B25. It could be B40 in an instance or B15 in another

 

[RioDegenero]

Have you tried xlFillCopy as the type parameter?

Range("B25").AutoFill Destination:=Range("B2:B25"), Type:=xlFillCopy

Thanks for the suggestion. I want it to be dynamic because the starting cell will not always be B25. It could be B40 in an instance or B15 in another

 

[smozgur]

Thanks for the suggestion. No I have not tried it, I want it to be dynamic because the starting cell will not always be B25. It could be B40 in an instance or B15 in another

My answer is not about the range.
Please just change the xlFillDefault parameter in your own code to xlFillCopy. My answer is about the Type parameter of the AutoFill function. You don't have to use my code line.
.

 

[RioDegenero]

My answer is not about the range.
Please just change the xlFillDefault parameter in your own code to xlFillCopy. My answer is about the Type parameter of the AutoFill function. You don't have to use my code line.
.

Thanks
How can I select the range between the active cell and B2?

 

[Fluff]

How about

Sub RioDegenero()
   Range("B2", Range("B2").End(xlDown)).FillUp
End Sub

 

[RioDegenero]

How about

Sub RioDegenero()
   Range("B2", Range("B2").End(xlDown)).FillUp
End Sub

Thanks

 

[Fluff]

Glad we could help & thanks for the feedback.