my code works fine with the total line, but when I added the label in column
A it bugged out. What is wrong with code?

'Add label for last row

lastrow = Range("A65536").End(xlUp).Row
lastrow = lastrow + 1
Sheet1.Range("A" & lastrow) = "Total Outstanding at Month End"

'Add totals to report

Cells(1, 1).End(xlDown).Offset(1, 0).Range( _
"F2,H2,I2").FormulaR1C1 = "=Sum(R2C:R[-1]C)"

End Sub