VB Code to consolidate 2 days of data

@ Alkey

Hi there...Does OP perhaps want the Totals of all above as well?

It could've been done with two short formulas
Enter in J15

Formula:

=SUMIF(A:A,I15,B:B)+SUMIF(E:E,I15,F:F)

and in K15

Formula:

=SUMIF(A:A,I15,C:C)+SUMIF(E:E,I15,G:G)

Hi Rizmomim

Does it have to be code or will a array formula suffice
This in J4 and copy down

Formula:

=SUM(IF($A$4:$G$18=$I4, $B$4:$G$18, 0)) 

CTRL + SHIFT + ENTER
And This in K4 and copy down

=SUM(IF($A$4:$G$18=$I4, $C$4:$G$18, 0))

CTRL + SHIFT + ENTER

There is a better way than the one suggested earlier
For calculation in Col J and K enter formula in J4 and copy across and down.

Formula:

=SUMIF($A:$E,$I4,B:F)

then for the TOTAL SALE enter in J15 and copy across to K15

Formula:

=SUMIF($A:$E,$I15,B:F)