Using WorksheetFuntion to Match/Count Data in an Array (For Each Loop)

[CoraG]

Here is my code. I am about 4 months new using VBA and I am struggling with this code. I have the array working well but I can't seem to get my Loop functioning. I want it to count by Employee Id, by Date, the number of of CC From(s),CC To(s),CORRECTION string data types for that employee by date. The three string data types are in cell D4,D3,D2. Can you help me understand what I may be doing wrong here?

Sub CountEidDaMem()
Dim vs As Worksheet
Set vs = ThisWorkbook.Sheets("SAMPLED DATA")

Dim erow As Long
erow = vs.CellS(Rows.Count, 1).End(xlUp).Row

Dim i As Long
i = 8

'Column B (2) Employee Id
Dim Eid As Long
Eid = vs.CellS(i, 2).Value
Dim Eid2 As Long
Eid2 = vs.CellS(i + 1, 2).Value

'Column E (5) Expense Item Date
Dim ExpD As Long
ExpD = vs.CellS(i, 5).Value
Dim ExpD2 As Long
ExpD2 = vs.CellS(i + 1, 5).Value

'Column L (12)Counts
Dim CMem As Long
CMem = vs.CellS(i, 12).Value
Dim CMem2 As Long
CMem2 = vs.CellS(i + 1, 12).Value
Dim CMem3 As Long
CMem3 = vs.CellS(i + 2, 12).Value


Dim MyArray() As Variant
Dim Dimension1 As Long
Dimension1 = Range("B8", Range("B7").End(xlDown)).CellS.Count - 1
Dim Dimension2 As Long
Dimension2 = Range("B7", Range("B7").End(xlToRight)).CellS.Count - 7


ReDim MyArray(0 To Dimension1, 0 To Dimension2)

'Loop
For Dimension1 = LBound(MyArray, 1) To UBound(MyArray, 1)
For Dimension2 = LBound(MyArray, 2) To UBound(MyArray, 2)
MyArray(Dimension1, Dimension2) = Range("B8").Offset(Dimension1, Dimension2).Value
Next Dimension2
Next Dimension1

Dim Arr As Variant
Dim x As Long
Dim y As Date

For Each Arr In MyArray

x = Application.WorksheetFunction.Match(MyArray, Eid, 0)
y = Application.WorksheetFunction.Match(MyArray, ExpD, 0)
Arr.CMem.Value = Data.Count("x:y", Range("D4").Value)
Arr.CMem2.Value = Data.Count("x:y", Range("D3").Value)
Arr.CMem3.Value = Application.WorksheetFunction.Count("x:y", Range("D2").Value)

CountEid = CountEid + 1
Next Arr
End Sub

 

[CoraG]

Here is the data

			CC To								END_E_Zno
			CC From								FALSE
			CORRECTED								TRUE
	B	C	D	I	J	E	F	G	H	K	L
Trans#	E ID	EE	FR/TO	EXP_ITEM_DATE	EXP_END_DATE	Account	Sub Act	PROJECT_NUMBER	TASK_NUMBER	HOURS	COUNT FR/TO
1	151617	Bamm Bamm	CC From	10/6/2018	10/8/2018	39DP09202	3P020A	KGE400	MSAP0102	2.00
2	151617	Bamm Bamm	CC From	10/6/2018	10/8/2018	39DP09202	3P020A	KGE400	R000620T	2.00
3	151617	Bamm Bamm	CC From	10/6/2018	10/8/2018	39DP09202	3P020A	KGE400	MSAP0102	2.00
4	151617	Bamm Bamm	CC From	10/6/2018	10/8/2018	39DP09202	3P020A	KGE400	R000620T	2.00
5	181920	Mary Poppins	CC To	10/8/2018	10/14/2018	MB0104060	5J870A	JW8H00	QUALPHCT	0.00
6	181920	Mary Poppins	CC To	10/9/2018	10/14/2018	MB0104060	5J870A	JW8H00	QUALPHCT	4.50
7	181920	Mary Poppins	CC To	10/10/2018	10/14/2018	MB0104060	5J870A	JW8H00	QUALPHCT	0.00
8	181920	Mary Poppins	CC To	10/11/2018	10/14/2018	MB0104060	5J870A	JW8H00	QUALPHCT	0.00
9	181920	Mary Poppins	CORRECTED	10/12/2018	10/14/2018	MB0104060	5J870A	JW8H00	QUALPHCT	0.00
10	181920	Mary Poppins	CC From	10/12/2018	10/14/2018	MB0104060	5J870A	JW8H00	QUALPHCT	0.00
11	181920	Mary Poppins	CC To	10/12/2018	10/14/2018	MB0104060	5J870A	JW8H00	QUALPHCT	1.00
12	212223	Wonder Woman	CC To	10/1/2018	10/7/2018	DP1202010	3R030A	J21M00	PHYS0000	0.50
13	212223	Wonder Woman	CC To	10/1/2018	10/7/2018	DP1201020	3R030A	J1PP00	00000000	0.50
14	212223	Wonder Woman	CORRECTED	10/1/2018	10/7/2018	DP1202040	3R030A	J6DP00	00000000	0.75
15	212223	Wonder Woman	CC From	10/1/2018	10/7/2018	DP1202040	3R030A	J6DP00	00000000	(0.75)
16	212223	Wonder Woman	CC To	10/1/2018	10/7/2018	DP1202040	3R030A	J6DP00	00000000	0.00
17	212223	Wonder Woman	CC To	10/1/2018	10/7/2018	YN0100000	3R030A	XA3300	00053R01	0.50
18	212223	Wonder Woman	CORRECTED	10/1/2018	10/7/2018	DP1202010	3R030A	J2DP00	00000000	0.50
19	212223	Wonder Woman	CC From	10/1/2018	10/7/2018	DP1202010	3R030A	J2DP00	00000000	(0.50)
20	212223	Wonder Woman	CC To	10/1/2018	10/7/2018	DP1202010	3R030A	J2DP00	00000000	1.25
21	212223	Wonder Woman	CC To	10/1/2018	10/7/2018	YN0100000	3R030A	XA3300	00053R04	0.75
22	212223	Wonder Woman	CC To	10/1/2018	10/7/2018	YN0100000	3R030A	XA3300	00053R07	0.75
23	212223	Wonder Woman	CC To	10/1/2018	10/7/2018	YN0100000	3R030A	XA3300	00053R03	4.75
24	212223	Wonder Woman	CC To	10/2/2018	10/7/2018	DP1202010	3R030A	J21M00	PHYS0000	0.50
25	212223	Wonder Woman	CC To	10/2/2018	10/7/2018	DP1201020	3R030A	J1PP00	00000000	0.50
26	212223	Wonder Woman	CORRECTED	10/2/2018	10/7/2018	DP1202040	3R030A	J6DP00	00000000	0.75
27	212223	Wonder Woman	CC From	10/2/2018	10/7/2018	DP1202040	3R030A	J6DP00	00000000	(0.75)
28	212223	Wonder Woman	CC To	10/2/2018	10/7/2018	DP1202040	3R030A	J6DP00	00000000	0.00
29	212223	Wonder Woman	CC To	10/2/2018	10/7/2018	YN0100000	3R030A	XA3300	00053R01	0.75
30	212223	Wonder Woman	CORRECTED	10/2/2018	10/7/2018	DP1202010	3R030A	J2DP00	00000000	0.50
31	212223	Wonder Woman	CC From	10/2/2018	10/7/2018	DP1202010	3R030A	J2DP00	00000000	(0.50)
32	212223	Wonder Woman	CC To	10/2/2018	10/7/2018	DP1202010	3R030A	J2DP00	00000000	1.25
33	212223	Wonder Woman	CC To	10/2/2018	10/7/2018	YN0100000	3R030A	XA3300	00053R04	0.75
34	212223	Wonder Woman	CC To	10/2/2018	10/7/2018	YN0100000	3R030A	XA3300	00053R07	0.75
35	212223	Wonder Woman	CC To	10/2/2018	10/7/2018	YN0100000	3R030A	XA3300	00053R03	4.50
36	212223	Wonder Woman	CC To	10/3/2018	10/7/2018	DP1202010	3R030A	J21M00	PHYS0000	0.50
37	212223	Wonder Woman	CC To	10/3/2018	10/7/2018	DP1201020	3R030A	J1PP00	00000000	0.50
38	212223	Wonder Woman	CORRECTED	10/3/2018	10/7/2018	DP1202040	3R030A	J6DP00	00000000	0.75
39	212223	Wonder Woman	CC From	10/3/2018	10/7/2018	DP1202040	3R030A	J6DP00	00000000	(0.75)
40	212223	Wonder Woman	CC To	10/3/2018	10/7/2018	DP1202040	3R030A	J6DP00	00000000	0.00
41	212223	Wonder Woman	CC To	10/3/2018	10/7/2018	YN0100000	3R030A	XA3300	00053R01	0.75
42	212223	Wonder Woman	CORRECTED	10/3/2018	10/7/2018	DP1202010	3R030A	J2DP00	00000000	0.50
43	212223	Wonder Woman	CC From	10/3/2018	10/7/2018	DP1202010	3R030A	J2DP00	00000000	(0.50)
44	212223	Wonder Woman	CC To	10/3/2018	10/7/2018	DP1202010	3R030A	J2DP00	00000000	1.25
45	212223	Wonder Woman	CC To	10/3/2018	10/7/2018	YN0100000	3R030A	XA3300	00053R04	0.50
46	212223	Wonder Woman	CC To	10/3/2018	10/7/2018	YN0100000	3R030A	XA3300	00053R07	0.75
47	212223	Wonder Woman	CC To	10/3/2018	10/7/2018	YN0100000	3R030A	XA3300	00053R03	4.75

<colgroup><col span="2"><col><col><col><col><col><col><col><col><col><col></colgroup><tbody>
</tbody>