Hello, need help creating a macro with calculation, increasing rows every day

Originally Posted by JohnTopley

Option Explicit

Sub Total_COL()
Dim i As Long, lr As Long
Application.ScreenUpdating = False
With Sheets("Test1")
    lr = .Cells(Rows.Count, "A").End(xlUp).Row
    For i = 5 To 6   ' SUM columns E:F
        .Cells(lr + 2, i) = Application.Sum(.Range(.Cells(2, i), .Cells(lr, i)))
        .Cells(lr + 2, 1) = "TOTAL"
        .Cells(lr + 2, i).NumberFormat = "#,#00"
 Next i
End With
Application.ScreenUpdating = True
End Sub

thanks a lot, I will give it a try in my macro