delete column from sheet and move values ,sum to another sheet

[abdo meghari]

hello
I have two sheets . the first contains values for two columns C,D , the other sheet contains values in column C what I want matching the items based on column B for two sheets . and delete the column D from first sheet and summing the values over each item in column C for the second sheet.
the data are about 1900 rows and will increase.

REPORT.xlsm
	A	B	C	D
1	ITEM	BRAND	SALES	RETURNS
2	1	BS 1200R20 G580 TCF JAP	152	10
3	2	BS 1200R24 G582 JAP	94	0
4	3	BS 1400R20 VSJ TCF JAP	21	0
5	4	BS 155 R12C R623 JAP	18	0
6	5	BS 155 R12C R624 INDO	4	4
7	6	BS 165 R13C R624 INDO	8	4
8	7	BS 175/70 R13 EP150 THI	4	0
9	8	BS 175/70 R14 EP150 THI	8	0
10	9	BS 185/65 R14 EP150 INDO	8	4
11	10	BS 185/65 R14 TEC THI	8	0
12	11	BS 185/65 R15 T005 INDO	4	4
13	12	BS 185/70 R13 EP150 INDO	8	4
14	13	BS 185R14C R624 INDO	4	0
15	14	BS 195 R14C 613 JAP	12	4
16	15	BS 195 R15C R623 THI	6	4
17	16	BS 195/55 R16 EP300 THI	4	4
18	17	BS 195/60 R15 EP150 THI	12	4
19	18	BS 195/65 R15 EP15 JAP	8	0
20	19	BS 195/70 R15C R623 JAP	8	4
21	20	BS 195/75 R16C R613 JAP	4	4
22	21	BS 205/60 R16 T001 JAP	4	0
23	22	BS 205/65 R15 EP150 INDO	6	4
24	23	BS 215/45 R17 T001 JAP	4	4
25	24	BS 215/55 R16 EP300 INDO	4	4
26	25	BS 215/55 R17 MY-02 THI	8	4
27	26	BS 215/55 R17 T005 JAP	4	0
28	27	BS 215/55 R17 TG90 INDO	16	4
29	28	BS 215/60 R16 EP30 THI	4	2
30	29	BS 215/65 R16C R611 THI	8	4
31	30	BS 215/70 R15C R623 THI	23	4
32	31	BS 225/55 R16 T001 JAP	4	0
33	32	BS 225/55 R17 EP300 THI	12	4
34	33	BS 225/60 R16 EP300 JAP	10	0
35	34	BS 225/60 R16 T001 JAP	4	0
36	35	BS 225/60 R17 D-SPORT JAP	4	4
37	36	BS 225/70 R15C R623 JAP	8	0
38	37	BS 225/70 R16 D687 JAP	8	4
39	38	BS 225/70 R16 H005 THI	4	0
40	39	BS 225/70 R17 D697 THI	4	0
41	40	BS 235/55 R17 ER30 JAP	4	4
42	41	BS 235/55 R17 T005 THI	4	0
43	42	BS 235/55 R18 E031 JAP	8	0
44	43	BS 235/60 R16 T01 JAP	4	0
45	44	BS 235/60 R17 D400 JAP	8	4
46	45	BS 245/40 ZR20 S001 JAP	4	0
47	46	BS 245/45 R19 T005 JAP	4	0
48	47	BS 245/70 R16 D684 THI	4	4
49	48	BS 245/70 R17 D684 JAP	38	0
50	49	BS 245/75 R17 693A JAP	4	0
51	50	BS 255/70 R16 H005 THI	4	4
52	51	BS 265/50 R20 D-SPORT JAP	4	0
53	52	BS 265/60R18 D840 JAP	12	0
54	53	BS 265/70 R18 D684 JAP	4	0
55	54	BS 275/40 R18 S007 JAP	4	0
56	55	BS 275/40 R20 DSPORT JAP	4	0
57	56	BS 275/45 R19 ALENZA JAP	4	0
58	57	BS 275/55 R17 DSPORT JAP	4	0
59	58	BS 275/70 R16 D694 JAP	4	0
60	59	BS 275/70 R16 H005 THI	4	4
61	60	BS 285/60 R18 T01 JAP	8	4
62	61	BS 285/65 R17 R683 JAP	8	4
63	62	BS 315/80 R22.5 G580 JAP	8	0
64	63	BS 315/80 R22.5 R152 JAP	4	0
65	64	BS 315/80 R22.5 R184 JAP	0	1
66	65	BS 385/65 R22.5 R164 JAP	105	121
67	66	BS 445/65 R22.5 R164 JAP	4	0
68	67	BS 650R16 R230 JAP	16	0
69	68	BS 750R16 R230 TCF JAP	74	0
70	69	BS 750R16 VSJ TCF JAP	112	0
71	70	BS 8.25R16 R180 JAP	0	1
72	71	Dayton 315/80R22.5 DS50 THI	0	10
73	72	FS 1200 R24 FSR4000 JAP	2	20
74	73	FS 205/65 R15 TZ700 JAP	4	4
75	74	FS 215/55 R17 TZ700 JAP	8	4
76	75	FS 225/45 R17 TZ700 JAP	4	4
SH1

REPORT.xlsm
	A	B	C
1	ITEM	BRAND	BALANCE
2	1	BS 195 R14C 613 JAP	12
3	2	BS 175/70 R13 EP150 THI	4
4	3	BS 1400R20 VSJ TCF JAP	21
5	4	BS 1200R20 G580 TCF JAP	152
6	5	BS 1200R24 G582 JAP	94
7	6	BS 155 R12C R623 JAP	18
8	7	BS 155 R12C R624 INDO	4
9	8	BS 165 R13C R624 INDO	8
10	9	BS 195 R15C R623 THI	6
11	10	BS 195/55 R16 EP300 THI	4
12	11	BS 175/70 R14 EP150 THI	8
13	12	BS 185/65 R14 EP150 INDO	8
14	13	BS 185/65 R14 TEC THI	8
15	14	BS 185/65 R15 T005 INDO	4
16	15	BS 185/70 R13 EP150 INDO	8
17	16	BS 185R14C R624 INDO	4
SH2

result

REPORT.xlsm
	A	B	C
1	ITEM	BRAND	SALES
2	1	BS 1200R20 G580 TCF JAP	152
3	2	BS 1200R24 G582 JAP	94
4	3	BS 1400R20 VSJ TCF JAP	21
5	4	BS 155 R12C R623 JAP	18
6	5	BS 155 R12C R624 INDO	4
7	6	BS 165 R13C R624 INDO	8
8	7	BS 175/70 R13 EP150 THI	4
9	8	BS 175/70 R14 EP150 THI	8
10	9	BS 185/65 R14 EP150 INDO	8
11	10	BS 185/65 R14 TEC THI	8
12	11	BS 185/65 R15 T005 INDO	4
13	12	BS 185/70 R13 EP150 INDO	8
14	13	BS 185R14C R624 INDO	4
15	14	BS 195 R14C 613 JAP	12
16	15	BS 195 R15C R623 THI	6
17	16	BS 195/55 R16 EP300 THI	4
18	17	BS 195/60 R15 EP150 THI	12
19	18	BS 195/65 R15 EP15 JAP	8
20	19	BS 195/70 R15C R623 JAP	8
21	20	BS 195/75 R16C R613 JAP	4
22	21	BS 205/60 R16 T001 JAP	4
23	22	BS 205/65 R15 EP150 INDO	6
24	23	BS 215/45 R17 T001 JAP	4
25	24	BS 215/55 R16 EP300 INDO	4
26	25	BS 215/55 R17 MY-02 THI	8
27	26	BS 215/55 R17 T005 JAP	4
28	27	BS 215/55 R17 TG90 INDO	16
29	28	BS 215/60 R16 EP30 THI	4
30	29	BS 215/65 R16C R611 THI	8
31	30	BS 215/70 R15C R623 THI	23
32	31	BS 225/55 R16 T001 JAP	4
33	32	BS 225/55 R17 EP300 THI	12
34	33	BS 225/60 R16 EP300 JAP	10
35	34	BS 225/60 R16 T001 JAP	4
36	35	BS 225/60 R17 D-SPORT JAP	4
37	36	BS 225/70 R15C R623 JAP	8
38	37	BS 225/70 R16 D687 JAP	8
39	38	BS 225/70 R16 H005 THI	4
40	39	BS 225/70 R17 D697 THI	4
41	40	BS 235/55 R17 ER30 JAP	4
42	41	BS 235/55 R17 T005 THI	4
43	42	BS 235/55 R18 E031 JAP	8
44	43	BS 235/60 R16 T01 JAP	4
45	44	BS 235/60 R17 D400 JAP	8
46	45	BS 245/40 ZR20 S001 JAP	4
47	46	BS 245/45 R19 T005 JAP	4
48	47	BS 245/70 R16 D684 THI	4
49	48	BS 245/70 R17 D684 JAP	38
50	49	BS 245/75 R17 693A JAP	4
51	50	BS 255/70 R16 H005 THI	4
52	51	BS 265/50 R20 D-SPORT JAP	4
53	52	BS 265/60R18 D840 JAP	12
54	53	BS 265/70 R18 D684 JAP	4
55	54	BS 275/40 R18 S007 JAP	4
56	55	BS 275/40 R20 DSPORT JAP	4
57	56	BS 275/45 R19 ALENZA JAP	4
58	57	BS 275/55 R17 DSPORT JAP	4
59	58	BS 275/70 R16 D694 JAP	4
60	59	BS 275/70 R16 H005 THI	4
61	60	BS 285/60 R18 T01 JAP	8
62	61	BS 285/65 R17 R683 JAP	8
63	62	BS 315/80 R22.5 G580 JAP	8
64	63	BS 315/80 R22.5 R152 JAP	4
65	64	BS 315/80 R22.5 R184 JAP	0
66	65	BS 385/65 R22.5 R164 JAP	105
67	66	BS 445/65 R22.5 R164 JAP	4
68	67	BS 650R16 R230 JAP	16
69	68	BS 750R16 R230 TCF JAP	74
70	69	BS 750R16 VSJ TCF JAP	112
71	70	BS 8.25R16 R180 JAP	0
72	71	Dayton 315/80R22.5 DS50 THI	0
73	72	FS 1200 R24 FSR4000 JAP	2
SH1

REPORT.xlsm
	A	B	C
1	ITEM	BRAND	BALANCE
2	1	BS 195 R14C 613 JAP	16
3	2	BS 175/70 R13 EP150 THI	4
4	3	BS 1400R20 VSJ TCF JAP	21
5	4	BS 1200R20 G580 TCF JAP	162
6	5	BS 1200R24 G582 JAP	94
7	6	BS 155 R12C R623 JAP	18
8	7	BS 155 R12C R624 INDO	22
9	8	BS 165 R13C R624 INDO	12
10	9	BS 195 R15C R623 THI	10
11	10	BS 195/55 R16 EP300 THI	8
12	11	BS 175/70 R14 EP150 THI	8
13	12	BS 185/65 R14 EP150 INDO	12
14	13	BS 185/65 R14 TEC THI	8
15	14	BS 185/65 R15 T005 INDO	8
16	15	BS 185/70 R13 EP150 INDO	12
17	16	BS 185R14C R624 INDO	4
SH2

 

[Alex Blakenburg]

See if this works for you:
(use a copy of your spreadsheet)
I wasn't sure if the Brand in the SH1 was unique so I am accumulating values if they repeat.

Sub UpdateBalancesWithReturns()

    Dim shtSales As Worksheet, shtBal As Worksheet
    Dim rngSales As Range, arrSales As Variant
    Dim ReturnAmt As Double
    Dim rngBal As Range, arrBal As Variant
    Dim dictReturns As Object, dictKey As String
    Dim i As Long
   
    Set shtSales = Worksheets("SH1")
    Set shtBal = Worksheets("SH2")
   
    With shtSales
        Set rngSales = .Range("A2:D" & .Cells(Rows.Count, "B").End(xlUp).Row)
        arrSales = rngSales.Value
    End With
   
    With shtBal
        Set rngBal = .Range("A2:C" & .Cells(Rows.Count, "B").End(xlUp).Row)
        arrBal = rngBal.Value
    End With
       
    ' Load details range into Dictionary
    Set dictReturns = CreateObject("Scripting.dictionary")
   
    For i = 1 To UBound(arrSales)
        dictKey = arrSales(i, 2)
        ReturnAmt = arrSales(i, 4)
        If Not dictReturns.exists(dictKey) Then
            dictReturns(dictKey) = ReturnAmt
        Else
            dictReturns(dictKey) = dictReturns(dictKey) + ReturnAmt
        End If
    Next i
   
    ' For Balances Report get values from Dictionary
    For i = 1 To UBound(arrBal)
        dictKey = arrBal(i, 2)
        If dictReturns.exists(dictKey) Then
            arrBal(i, 3) = arrBal(i, 3) + dictReturns(dictKey)
        End If
    Next i
   
    ' Write back Balance Rpt with updated data
    rngBal.Value = arrBal
   
    ' Delete Return column from Sales / Returns sheet
    shtSales.Columns("D").Delete

End Sub

 

[abdo meghari]

thanks for this , but seem doesn't sum correctly for some items
this is what I got

REPORT.xlsm
	A	B	C
1	ITEM	BRAND	BALANCE
2	1	BS 195 R14C 613 JAP	20
3	2	BS 175/70 R13 EP150 THI	4
4	3	BS 1400R20 VSJ TCF JAP	21
5	4	BS 1200R20 G580 TCF JAP	162
6	5	BS 1200R24 G582 JAP	94
7	6	BS 155 R12C R623 JAP	18
8	7	BS 155 R12C R624 INDO	12
9	8	BS 165 R13C R624 INDO	16
10	9	BS 195 R15C R623 THI	14
11	10	BS 195/55 R16 EP300 THI	12
12	11	BS 175/70 R14 EP150 THI	8
13	12	BS 185/65 R14 EP150 INDO	16
14	13	BS 185/65 R14 TEC THI	8
15	14	BS 185/65 R15 T005 INDO	12
16	15	BS 185/70 R13 EP150 INDO	16
17	16	BS 185R14C R624 INDO	4
SH2

last thing sorry this point I don't mentioned . sometimes there is item in sheet SH1 but is not existed in SH2 . also I want adding to SH2 but this depends on just on values are existed in column D before delete the column . if the new item in column D is empty or zero then should not add to SH2 .

 

[Alex Blakenburg]

I refreshed the SH1 & SH2 data from what you have posted in #1 and got the below which matches your results with the exception of the item in yellow which I believe is a mistake in your results data.
Either refresh your data with the Post #1 data or give me a fresh set of SH1 & SH2 data that you used to get your results in the above Post #3

I will have to have a look at adding missing items in SH2 from SH1 tomorrow.

20220717 VBA Dictionary update stock abdo meghari.xlsm
	A	B	C
1	ITEM	BRAND	BALANCE
2	1	BS 195 R14C 613 JAP	16
3	2	BS 175/70 R13 EP150 THI	4
4	3	BS 1400R20 VSJ TCF JAP	21
5	4	BS 1200R20 G580 TCF JAP	162
6	5	BS 1200R24 G582 JAP	94
7	6	BS 155 R12C R623 JAP	18
8	7	BS 155 R12C R624 INDO	8
9	8	BS 165 R13C R624 INDO	12
10	9	BS 195 R15C R623 THI	10
11	10	BS 195/55 R16 EP300 THI	8
12	11	BS 175/70 R14 EP150 THI	8
13	12	BS 185/65 R14 EP150 INDO	12
14	13	BS 185/65 R14 TEC THI	8
15	14	BS 185/65 R15 T005 INDO	8
16	15	BS 185/70 R13 EP150 INDO	12
17	16	BS 185R14C R624 INDO	4
SH2

 

[Alex Blakenburg]

By the way in your sample data there are quite a lot of items in SH1 missing from SH2. Do you only want the ones with Return <> 0 added ?

 

[abdo meghari]

I refreshed the SH1 & SH2 data from what you have posted in #1 and got the below which matches your results with the exception of the item in yellow which I believe is a mistake in your results data.
Either refresh your data with the Post #1 data or give me a fresh set of SH1 & SH2 data that you used to get your results in the above Post #3

I will check it again

By the way in your sample data there are quite a lot of items in SH1 missing from SH2

I know . ignore the others except in one case as I told you in post #3.

Do you only want the ones with Return <> 0 added ?

also if it's possible when cell is empty . I know this doesn't show in OP but this case could be possible

 

[abdo meghari]

Hi Alex,
yes it works perfectly . can you see my requiremnt as I told you in post#3 & 6 ,please?

 

[Alex Blakenburg]

I am not entirely sure what you are after but add items on SH1 missing from SH2 but only if the Returns on SH1 have a value (ie not 0 and not empty).

Sub UpdateBalancesWithReturns()

    Dim shtSales As Worksheet, shtBal As Worksheet
    Dim rngSales As Range, arrSales As Variant
    Dim ReturnAmt As Double
    Dim rngBal As Range, arrBal As Variant
    Dim dictReturns As Object, dictKey As Variant
    Dim dictBal As Object
    Dim i As Long
    
    Set shtSales = Worksheets("SH1")
    Set shtBal = Worksheets("SH2")
    
    With shtSales
        Set rngSales = .Range("A2:D" & .Cells(Rows.Count, "B").End(xlUp).Row)
        arrSales = rngSales.Value
    End With
    
    With shtBal
        Set rngBal = .Range("A2:C" & .Cells(Rows.Count, "B").End(xlUp).Row)
        arrBal = rngBal.Value
    End With
        
    ' Load details range into Dictionary
    Set dictReturns = CreateObject("Scripting.dictionary")
    
    For i = 1 To UBound(arrSales)
        dictKey = arrSales(i, 2)
        ReturnAmt = arrSales(i, 4)
        If Not dictReturns.exists(dictKey) Then
            dictReturns(dictKey) = ReturnAmt
        Else
            dictReturns(dictKey) = dictReturns(dictKey) + ReturnAmt
        End If
    Next i
    
    ' Load balance sheet range into Dictionary
    Set dictBal = CreateObject("Scripting.dictionary")
    
    For i = 1 To UBound(arrBal)
        dictKey = arrBal(i, 2)
        If Not dictBal.exists(dictKey) Then
            dictBal(dictKey) = i
        End If
    Next i
    
    Dim iBal As Long
    iBal = UBound(arrBal)
    
    For Each dictKey In dictReturns.keys
        If Not dictBal.exists(dictKey) And Val(dictReturns(dictKey)) <> 0 Then ' Test for 0 or empty using Val
            iBal = iBal + 1
            dictBal(dictKey) = iBal
        End If
    Next dictKey
    
    Dim j As Long
    Dim outArrBal()
    ReDim outArrBal(1 To iBal, 1 To UBound(arrBal, 2)) As Variant
    j = 0
    
    For Each dictKey In dictBal.keys
        j = j + 1
        outArrBal(j, 1) = dictBal(dictKey)
        outArrBal(j, 2) = dictKey
        If j <= UBound(arrBal, 1) Then
            outArrBal(j, 3) = arrBal(j, 3)
        Else
            outArrBal(j, 3) = 0
        End If
    Next dictKey
    
    ' For Balances Report get values from Dictionary
    For i = 1 To UBound(outArrBal)
        dictKey = outArrBal(i, 2)
        If dictReturns.exists(dictKey) Then
            outArrBal(i, 3) = outArrBal(i, 3) + dictReturns(dictKey)
        End If
    Next i
    
    ' Write back Balance Rpt with updated data
    Set rngBal = rngBal.Resize(UBound(outArrBal, 1))
    rngBal.Value = outArrBal
    rngBal.Rows(1).Copy
        rngBal.PasteSpecial Paste:=xlPasteFormats
    rngBal.Columns.AutoFit
     
    ' Delete Return column from Sales / Returns sheet
    shtSales.Columns("D").Delete

End Sub

 

[abdo meghari]

doesn't seem work
ok look the picture maybe help you

REPORT.xlsm
	A	B	C
1	ITEM	BRAND	BALANCE
2	1	BS 195 R14C 613 JAP	16
3	2	BS 175/70 R13 EP150 THI	4
4	3	BS 1400R20 VSJ TCF JAP	21
5	4	BS 1200R20 G580 TCF JAP	162
6	5	BS 1200R24 G582 JAP	94
7	6	BS 155 R12C R623 JAP	18
8	7	BS 155 R12C R624 INDO	8
9	8	BS 165 R13C R624 INDO	12
10	9	BS 195 R15C R623 THI	10
11	10	BS 195/55 R16 EP300 THI	8
12	11	BS 175/70 R14 EP150 THI	8
13	12	BS 185/65 R14 EP150 INDO	12
14	13	BS 185/65 R14 TEC THI	8
15	14	BS 185/65 R15 T005 INDO	8
16	15	BS 185/70 R13 EP150 INDO	12
17	16	BS 185R14C R624 INDO	4
18	17	BS 195 R15C R623 THI	4
19	18	BS 195/55 R16 EP300 THI	4
20	19	BS 195/60 R15 EP150 THI	4
21	20	BS 195/70 R15C R623 JAP	4
22	21	BS 195/75 R16C R613 JAP	4
23	22	BS 205/65 R15 EP150 INDO	4
24	23	BS 215/45 R17 T001 JAP	4
25	24	BS 215/55 R16 EP300 INDO	4
26	25	BS 215/55 R17 MY-02 THI	4
27	26	BS 215/55 R17 TG90 INDO	4
28	27	BS 215/60 R16 EP30 THI	2
29	28	BS 215/65 R16C R611 THI	4
30	29	BS 215/70 R15C R623 THI	4
31	30	BS 225/55 R17 EP300 THI	4
32	31	BS 225/60 R17 D-SPORT JAP	4
33	32	BS 225/70 R16 D687 JAP	4
34	33	BS 235/55 R17 ER30 JAP	4
35	34	BS 235/60 R17 D400 JAP	4
36	35	BS 245/70 R16 D684 THI	4
37	36	BS 255/70 R16 H005 THI	4
38	37	BS 275/70 R16 H005 THI	4
39	38	BS 285/60 R18 T01 JAP	4
40	39	BS 285/65 R17 R683 JAP	4
41	40	BS 315/80 R22.5 R184 JAP	1
42	41	BS 385/65 R22.5 R164 JAP	121
43	42	BS 8.25R16 R180 JAP	1
44	43	Dayton 315/80R22.5 DS50 THI	10
45	44	FS 1200 R24 FSR4000 JAP	20
46	45	FS 205/65 R15 TZ700 JAP	4
47	46	FS 215/55 R17 TZ700 JAP	4
48	47	FS 225/45 R17 TZ700 JAP	4
SH2

the new items start from row 18 theses item are new existed in sheet SH1 but are not existed in sheet SH2 then should add to SH2 based contains values in column D with ignore new items contain zero or empty with ignore column C where contains values I don't need it when add new item to sheet SH2 .

 

[Alex Blakenburg]

You really need to find a better way of explaining the issue you are having.
You need to show me what you are getting and what you are expecting.

I am assuming the above is what you are expecting.
Based on the original data in Post #1 that is incorrect.
It contains 2 records to many as it duplicates 2 records.

You can check this quickly by adding the original sheet 2 balance total of 289 + returns per original sheet 2 of 363 which gives 652. Your result sheet is coming up with 660.

On the left below is what the code is producing and on the right is what you posted in the previous post (#9)
What is in yellow is what you have picked up twice.

20220717 VBA Dictionary update stock abdo meghari v03.xlsm
	A	B	C	D	E	F	G	H	I
1	ITEM	BRAND	BALANCE	<-- Code generated	No times in Abdo's list	Abdo's List --->	ITEM	BRAND	BALANCE
2	1	BS 195 R14C 613 JAP	16		1		1	BS 195 R14C 613 JAP	16
3	2	BS 175/70 R13 EP150 THI	4		1		2	BS 175/70 R13 EP150 THI	4
4	3	BS 1400R20 VSJ TCF JAP	21		1		3	BS 1400R20 VSJ TCF JAP	21
5	4	BS 1200R20 G580 TCF JAP	162		1		4	BS 1200R20 G580 TCF JAP	162
6	5	BS 1200R24 G582 JAP	94		1		5	BS 1200R24 G582 JAP	94
7	6	BS 155 R12C R623 JAP	18		1		6	BS 155 R12C R623 JAP	18
8	7	BS 155 R12C R624 INDO	8		1		7	BS 155 R12C R624 INDO	8
9	8	BS 165 R13C R624 INDO	12		1		8	BS 165 R13C R624 INDO	12
10	9	BS 195 R15C R623 THI	10		2		9	BS 195 R15C R623 THI	10
11	10	BS 195/55 R16 EP300 THI	8		2		10	BS 195/55 R16 EP300 THI	8
12	11	BS 175/70 R14 EP150 THI	8		1		11	BS 175/70 R14 EP150 THI	8
13	12	BS 185/65 R14 EP150 INDO	12		1		12	BS 185/65 R14 EP150 INDO	12
14	13	BS 185/65 R14 TEC THI	8		1		13	BS 185/65 R14 TEC THI	8
15	14	BS 185/65 R15 T005 INDO	8		1		14	BS 185/65 R15 T005 INDO	8
16	15	BS 185/70 R13 EP150 INDO	12		1		15	BS 185/70 R13 EP150 INDO	12
17	16	BS 185R14C R624 INDO	4		1		16	BS 185R14C R624 INDO	4
18	17	BS 195/60 R15 EP150 THI	4		1		17	BS 195 R15C R623 THI	4
19	18	BS 195/70 R15C R623 JAP	4		1		18	BS 195/55 R16 EP300 THI	4
20	19	BS 195/75 R16C R613 JAP	4		1		19	BS 195/60 R15 EP150 THI	4
21	20	BS 205/65 R15 EP150 INDO	4		1		20	BS 195/70 R15C R623 JAP	4
22	21	BS 215/45 R17 T001 JAP	4		1		21	BS 195/75 R16C R613 JAP	4
23	22	BS 215/55 R16 EP300 INDO	4		1		22	BS 205/65 R15 EP150 INDO	4
24	23	BS 215/55 R17 MY-02 THI	4		1		23	BS 215/45 R17 T001 JAP	4
25	24	BS 215/55 R17 TG90 INDO	4		1		24	BS 215/55 R16 EP300 INDO	4
26	25	BS 215/60 R16 EP30 THI	2		1		25	BS 215/55 R17 MY-02 THI	4
27	26	BS 215/65 R16C R611 THI	4		1		26	BS 215/55 R17 TG90 INDO	4
28	27	BS 215/70 R15C R623 THI	4		1		27	BS 215/60 R16 EP30 THI	2
29	28	BS 225/55 R17 EP300 THI	4		1		28	BS 215/65 R16C R611 THI	4
30	29	BS 225/60 R17 D-SPORT JAP	4		1		29	BS 215/70 R15C R623 THI	4
31	30	BS 225/70 R16 D687 JAP	4		1		30	BS 225/55 R17 EP300 THI	4
32	31	BS 235/55 R17 ER30 JAP	4		1		31	BS 225/60 R17 D-SPORT JAP	4
33	32	BS 235/60 R17 D400 JAP	4		1		32	BS 225/70 R16 D687 JAP	4
34	33	BS 245/70 R16 D684 THI	4		1		33	BS 235/55 R17 ER30 JAP	4
35	34	BS 255/70 R16 H005 THI	4		1		34	BS 235/60 R17 D400 JAP	4
36	35	BS 275/70 R16 H005 THI	4		1		35	BS 245/70 R16 D684 THI	4
37	36	BS 285/60 R18 T01 JAP	4		1		36	BS 255/70 R16 H005 THI	4
38	37	BS 285/65 R17 R683 JAP	4		1		37	BS 275/70 R16 H005 THI	4
39	38	BS 315/80 R22.5 R184 JAP	1		1		38	BS 285/60 R18 T01 JAP	4
40	39	BS 385/65 R22.5 R164 JAP	121		1		39	BS 285/65 R17 R683 JAP	4
41	40	BS 8.25R16 R180 JAP	1		1		40	BS 315/80 R22.5 R184 JAP	1
42	41	Dayton 315/80R22.5 DS50 THI	10		1		41	BS 385/65 R22.5 R164 JAP	121
43	42	FS 1200 R24 FSR4000 JAP	20		1		42	BS 8.25R16 R180 JAP	1
44	43	FS 205/65 R15 TZ700 JAP	4		1		43	Dayton 315/80R22.5 DS50 THI	10
45	44	FS 215/55 R17 TZ700 JAP	4		1		44	FS 1200 R24 FSR4000 JAP	20
46	45	FS 225/45 R17 TZ700 JAP	4		1		45	FS 205/65 R15 TZ700 JAP	4
47							46	FS 215/55 R17 TZ700 JAP	4
48							47	FS 225/45 R17 TZ700 JAP	4
49
50
51		Total	652						660
52
53		Original SH2 Balances	363						363
54		Returns per SH1	289						289
55		Balance + Returns	652						652
56
57		Difference	0						8
58
SH2

Cell Formulas
Range	Formula
E2:E46	E2	=COUNTIFS($H$2:$H$48,B2)
C51,I51	C51	=SUM(C2:C50)
C55,I55	C55	=SUM(C53:C54)
C57,I57	C57	=C51-C55