Fill down formulas

[RattlingCarp3048]

I posted a couple of weeks ago about filling down a formula using a macro and the solution provided was working great initially. Now that we have a few weeks of working data I realized the macro solution isn't working 100% and could use some help.

The formulas in R2-X2 are being copied down to the last row of data. Then the user edits columns v-x let's say row1789. Then we update the sheet adding more data spanning down to row3458. When using the macro to copy down the formulas in columns r-x to row 3458 it is removing the user edits in row 1789.

What I need it to do is when additional data is added to columns A-Q, look up column R to the last row with formulas and copy those formulas down to the last row. Here is the initial codes:

Lastrow = cells(rows.count, "a").end(xlup).row
Range(r2:x" & lastrow).formula = range("r2:x2").formula

 

[rollis13]

Since the new cells V-X to be filled are at the moment empty, maybe:

lastRow = Cells(Rows.Count, "A").End(xlUp).Row
Range("R3:X" & lastRow).SpecialCells(xlCellTypeBlanks).Formula = Range("R2:X2").Formula

 

[RattlingCarp3048]

Since the new cells V-X to be filled are at the moment empty, maybe:

lastRow = Cells(Rows.Count, "A").End(xlUp).Row
Range("R3:X" & lastRow).SpecialCells(xlCellTypeBlanks).Formula = Range("R2:X2").Formula

This seems to work when I test it. Let me confirm tomorrow when the night shift users have a chance to test using current data and processes.

 

[rollis13]

Could also be:

lastrow = Cells(Rows.Count, "A").End(xlUp).Row
lastrowFormulas = Cells(Rows.Count, "R").End(xlUp).Row + 1
Range("R" & lastrowFormulas & ":X" & lastrow).Formula = Range("R2:X2").Formula

 

[RattlingCarp3048]

Since the new cells V-X to be filled are at the moment empty, maybe:

lastRow = Cells(Rows.Count, "A").End(xlUp).Row
Range("R3:X" & lastRow).SpecialCells(xlCellTypeBlanks).Formula = Range("R2:X2").Formula

This one worked like a charm! Thanks

 

[rollis13]

Even the second one looks good .
Thanks for the feedback, glad having been of some help.