Sum Macro

[lakshmipathi123]

Hi,

I have query regarding SUM macro. I need a sum code which is already done SUM. Like mentioned below. Leave 1st SUM and do same SUM in below column.

With Range("E" & Rows.count).End(xlUp).Offset(2, 0).Resize(, 5)
.FormulaR1C1 = "=SUM(R2C:R[-2]C)"
End With

2	2
3	3
=SUM(E6:E9) First SUM	=SUM(F6:F9) First SUM
=SUM(E6:E9) Second SUM required	=SUM(E6:E9) Second SUM required

<tbody>
</tbody>

 

[lakshmipathi123]

Hello All,

I got the answers...see below code

'Do SUM
Application.StatusBar = "SUM Check..."
With Range("E" & Rows.count).End(xlUp).Offset(-2, 0).Resize(, 5)
.FormulaR1C1 = "=SUM(R2C:R[-1]C)"
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeTop).Weight = xlThin
.Borders(xlEdgeBottom).LineStyle = xlDouble
.Font.Bold = True
End With

'Do check between report totals
With Range("E" & Rows.count).End(xlUp).Offset(2, 0).Resize(, 5)
.FormulaR1C1 = "=R[-2]C-R[-4]C"
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeTop).Weight = xlThin
.Borders(xlEdgeBottom).LineStyle = xlDouble
.Font.Bold = True
.HorizontalAlignment = xlCenter

End With
'Create Report Totals Check and format
ActiveCell.SpecialCells(xlCellTypeLastCell).Select
Cells(ActiveCell.Row, 1).Select
ActiveCell.End(xlUp).Select
ActiveCell.Offset(2, 2) = "Report Totals Check"

With Range(ActiveCell.Offset(2, 2), ActiveCell.Offset(2, 5))
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeTop).Weight = xlThin
.Borders(xlEdgeBottom).LineStyle = xlDouble
.Font.Bold = True
.HorizontalAlignment = xlCenter
.NumberFormat = "#,##0.00"
End With