VBA to copy formula to last row of adjacent cell

[Steven101]

Hi, I have a list of names in column D, each name is repeated 8 times.

I have formula in columns F:CM. Columns F is the only one that has a merged cells (F3:F11 are merged, and repeated down column F) , so that instead of showing the name 8 time it only shows once.

I'm trying to create a macro to copy the formula I have in F3:CM3 all the way down to the last row of data in column D

I can create a lastrow count, however when I try ."FillDown" nothing happens.

Sub Copy_Formula()
'
' Copy_BAU_Formula Macro
'
'
Dim lastR As Long
'FIND LAST ROW OF DATA IN COLUMN 4 (D)
lastR = Cells(Rows.Count, 4).End(xlUp).Row

'COPY FROM ROW 3 OF COL 6 (F) TO LAST ROW OF COLUMN D IN COLUMN 91 (CM)
Range(Cells(3, 6), Cells(lastR, 91)).FillDown
Calculate
End Sub

Any help would be appreciated

Thanks S

 

[Joe4]

Since column F has merged cells, you may have to do that columns separately from the rest (if column F will work at all).
Note that merged cells are VERY problematic for things like VBA, sorting, etc. For that reason, most serious programmers do not use them. They cause more problems than they solve.