Running total from a daliy worksheet into a montly total.

Hi All, new to this forum and to Excel. i am trying to create a very basic workbook that has 2 worksheets. one is a daily input for tonnes, that then just gets cut and pasted to a different program, and the other worksheet is the running total. ie it adds up every time you update it.
been trying to figure out a macro so when you press the update button it then just updates the monthly total.

any help is much appreciated
Jake
Colac Production.xls

thanks, the reason a macro would be used because the c column is the one to be filled out (backflush) and this number changes every day, and then these numbers need to be to create the monthly total of each product.

no there isnt a sheet for every day. that is why i was trying to create a macros to eliminate having to have a sheet for everyday.
cause if there was, that is simple to create a running total.
that is correct. type in the daily production hit update then the monthly sheet is updated.

Hi jake,

See if this is what you are looking for .

Sub UpdateValues()
    'Update this contants to match the sheet names
    Const sSHEET_NAME_DAILY As String = "Daily production"
    Const sSHEET_NAME_MONTHLY As String = "montly total"
    
    Dim lRow As Long
    Dim sFormula As String
    
    ' Original Formula without variables (just for clarity)
    ' =IF(B2="","",SUMIF('Daily production'!B:B,'montly total'!B2,'Daily production'!C:C)'montly total'!C2)
    sFormula = "=IF(B2="""",""""," & _
               "SUMIF('" & sSHEET_NAME_DAILY & "'!B:B,'" & _
               sSHEET_NAME_MONTHLY & "'!B2,'" & _
               sSHEET_NAME_DAILY & "'!C:C)+'" & sSHEET_NAME_MONTHLY & "'!C2)"
    
    
    ' Determine the last row for the monthly
    With Sheets(sSHEET_NAME_MONTHLY)
        lRow = .Cells(Rows.Count, 1).End(xlUp).Row
        
        ' Add temporary formula next to it to thet the values
        .Range("D2:D" & lRow).Formula = sFormula
        
        ' Copy the values to the adjacent column
        .Range("D2:D" & lRow).Offset(, -1).Value = .Range("D2:D" & lRow).Value
        
        ' Delete the aux column
        .Range("D2:D" & lRow).EntireColumn.Delete
    End With
    
End Sub

Thanks

That work like a treat.
Thanks for that.

I am glad I was able to help, humdingaling did all the heavy lifting at the beginning.

Thanks