Hi there In the Excel table from the attachment, starting from column EQ, I would like to have the VBA filldown the formula in row 6 of each column for the respective column. This is what I have so far: Sub EnableFormulas() Dim Lastrow As Long Application.ScreenUpdating = False Lastrow = Range("EQ" & Rows.Count).End(xlUp).Row Worksheets("Master Data").Range("EQ6:EQ" & Lastrow).FillDown Application.ScreenUpdating = True End Sub In a loop, it should always fetch the formula in row 6 and pull it down, e.g. fetch EQ6, then copy to the last row in that column EQ. I currently struggle with knowing how to make the range dynamic, so that when going to the next column, ER, the FillDown would fetch cell ER6 and fill it down. Then in a second step, I need the marcro that hardcopies all these rows again. Thanks for your help! BR Stefania

If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.

Excel Table - FillDown formula from top row in respective column

Thread starter Stefaniala
Start date Sep 25, 2017
Tags

column fetch filldown formula row

Stefaniala

New Member

Sep 25, 2017

Hi there

In the Excel table from the attachment, starting from column EQ, I would like to have the VBA filldown the formula in row 6 of each column for the respective column. This is what I have so far:

Code:

[INDENT]Sub EnableFormulas()

Dim Lastrow As Long

Application.ScreenUpdating = False

Lastrow = Range("EQ" & Rows.Count).End(xlUp).Row
Worksheets("Master Data").Range("EQ6:EQ" & Lastrow).FillDown

Application.ScreenUpdating = True

End Sub
[/INDENT]

In a loop, it should always fetch the formula in row 6 and pull it down, e.g. fetch EQ6, then copy to the last row in that column EQ. I currently struggle with knowing how to make the range dynamic, so that when going to the next column, ER, the FillDown would fetch cell ER6 and fill it down.

Then in a second step, I need the marcro that hardcopies all these rows again.

Thanks for your help!
BR
Stefania