With oWS
FormulaRow = .Cells(.Rows.Count, "d").End(-4162).Row + 2 'xlUp
.range("c" & FormulaRow & ":f" & FormulaRow).Formula = "=SUM(c2:c" & (FormulaRow - 2) & ")"
.Cells.Font.Size = 10
.Rows(1).Font.Bold = True
.UsedRange.EntireColumn.AutoFit
.range("H:J").NumberFormat = "0.00%;[Red]0.00%"
.range("C:F").NumberFormat = "#,##0.00;[Red]#,##0.00"
End With
|