Copy formula to last row

[ai1094]

Is there a simple VBA code that will auto fill my formula in the current cell to the last row containing data?

 

[Joe4]

What cell is the formula in?
What column can we look in to see where the data ends?

 

[ai1094]

The formula is in cell A2, and the column is column A

What cell is the formula in?
What column can we look in to see where the data ends?

 

[crystalneedshelpplzthnx]

DynamicRange_Fill Down
Range("A2:A" & ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row).Select
Selection.FillDown

Update "B" for the column with no blank lines.

 

[Rick Rothstein]

Does this macro do what you want...

Sub ExtendFormulaInCellA2()
  Dim LastRow As Long
  LastRow = Cells.Find("*", , xlValues, , xlRows, xlPrevious).Row
  Range("A3:A" & LastRow).Formula = Range("A2").Formula
End Sub

 

[ai1094]

This was excellent. Thank you!

Does this macro do what you want...

Sub ExtendFormulaInCellA2()
  Dim LastRow As Long
  LastRow = Cells.Find("*", , xlValues, , xlRows, xlPrevious).Row
  Range("A3:A" & LastRow).Formula = Range("A2").Formula
End Sub

 

[ai1094]

I have another sheet with formulas in Cell N83 from Column N all the way up into Column X. How can I autofill Columns N:X to the last row of data in Column A?

 

[Rick Rothstein]

I have another sheet with formulas in Cell N83 from Column N all the way up into Column X. How can I autofill Columns N:X to the last row of data in Column A?

With that sheet active, give this macro a try...

Sub ExtendFormulaInCellA2()
  Dim LastRow As Long
  LastRow = Cells(Rows.Count, "A").End(xlUp).Row
  Range("N84:X" & LastRow).Formula = Range("N83:X83").Formula
End Sub