Macro to drag formula from Activecell to last row used

[taostep1]

I am stuck on figuring out on how to fill down my formulas from the activecell selection to the last row used in column AK. Please keep in mind that the active cell can always be in a different spot of the excel spreadsheet.

Dim LRw As Long


ActiveCell.Select
ActiveCell.Formula = "1"
LRw = Range("AK" & Rows.Count).End(xlUp).Row


Range(ActiveCell, LRw).FillDown

 

[Joe4]

Here is one way, using the logic you are trying to incorporate:

Sub MyFillMacro()

    Dim LRw As Long

    ActiveCell.Formula = "1"
    LRw = Range("AK" & Rows.Count).End(xlUp).Row

    Range(ActiveCell, Cells(LRw, ActiveCell.Column)).FillDown

End Sub

 

[taostep1]

Thank you so much! Worked like a charm!

 

[Joe4]

You are welcome!