Summing two running totals

This is the data before i run the macro, it can be tidied to suit whatever your layout is and i've run it twice so the totals at the bottom of the first sheet are from last run. If you count the transactions in the box then compare after i run the macro in the second image.....works a treat

What your not seeing, is i had the macro recorder going and wrote a sumif for each category, and got the totals, then i did a copy and paste values only in the totals box before deleting the cash or card, all while the macro was recording and it does what you wanted. Heres the code,

Sub Macro9()
'
' Macro9 Macro
'

'
ActiveCell.FormulaR1C1 = "=SUMIF(R[-13]C[-1]:R[-3]C[1],RC[-1],R[-13]C:R[-3]C)"
Range("E33").Select
ActiveCell.FormulaR1C1 = "=SUMIF(R[-14]C[-1]:R[-4]C[1],RC[-1],R[-14]C:R[-4]C)"
Range("E32:E33").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("E19:E29").Select
Selection.ClearContents
Range("D31").Select
End Sub

but if you don't know how to change it just use the macro recorder while your making up your sheet

hope it helps

Thanks Scotty,
Before I start to try and follow your instructions must mention that in my spreadsheet that relate to individual items (C15:F20) come initially from another sheet and are transferred via formula to either column H or I.
This also refers to Column B (visa or Cash)
In your example you have just entered figures into column K and I am trying to get my head around how to handle your suggestion within the framework of my sheet.

Might be best if I display my full sheet again so you can see what I mean

Would also mention my understanding macros is not very good.

Pedro

Finally sorted it. Changed column G to total expenditure from both sources on daily basis and then used Scotty's suggestion.
Of course the total was a simple sum.

Thanks for the help.

Pedro