the line for total.formula is entering a sum in ALL of the rows in the column - not just the one with a value. I need for it to just populate the row with a value in A2. Can someone help please.
Application.Calculation = xlCalculationManual
Set r = Sheet19.Range("A2:D2")
Set headr = Sheet19.Range("A2:D2")
Set dest = Worksheets("Exceptions").Range("A2")
Set total = Sheet19.Range("A2")
Set total = Range(total, total.End(xlDown)).Offset(0, 4)
total.Formula = "=sum(B2:D2)"