Using the SUM Formula w/ Variable Rows

[maize]

I'm trying to use the same basic SUM formula down an entire column...

ActiveSheet.Range("D2").Formula = "=SUM(A2,B2,C2)"

Column D will always be the SUM formula column, but the formula will change to:
ActiveSheet.Range("D3").Formula = "=SUM(A3,B3,C3)"
ActiveSheet.Range("D4").Formula = "=SUM(A4,B4,C4)"
ActiveSheet.Range("D5").Formula = "=SUM(A5,B5,C5)"
ActiveSheet.Range("D6").Formula = "=SUM(A6,B6,C6)"
etc.

Blank rows are included in the spreadsheet and I'd like to be able stop including the SUM formula on the last row with data. Is there an easy way to write this in VBA without having to code in every range?

 

[jasonb75]

Quick and easy would be

Dim lRow As Long
lRow = Cells(Rows.Count, "A").End(xlUp).Row
Range("D2:D" & lRow).FormulaR1C1 = "=SUM(RC1:RC3)"
Range("A2:A" & lRow).SpecialCells(xlCellTypeBlanks).Offset(, 3).ClearContents

You can remove the last line if you're not bothered about the fomula being in any blank rows between D2 and the last used row.

 

[texasalynn]

since the formula will change when you copy it down it isn't necessary to write every line as code. Add the code to copy the formula down to the last row of data