VBA - sum & countif & for loop

[HaHa1712]

Hi, Bros.
I am having trouble coming up with a formula and was wondering if I could get some assistance/advice.


I have 2 sheets, "Data" and "Sheet1".

The sheet "Data" have 100000 rows with data from column B to column H.

ID1	1	1	8	2	3	2	0
ID2	2	3	9	3	5	9	0
ID3	7	2	3	6	8	6	2
ID4	1	6	7	9	4	3	3
ID5	4	7	0	3	9	3	6

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

The cell (A2) and cell (B1) in sheet "Sheet1" are the criteria.

A2 =1, B1 =0


How to transform the code below into VBA Code (or another method)?
In sheet 1 Cell(2,2) =
IF(COUNTIF(Data!$1:$1,$A2)=0,0,COUNTIF(Data!$1:$1,B$1))+
IF(COUNTIF(Data!$2:$2,$A2)=0,0,COUNTIF(Data!$2:$2,B$1))+
IF(COUNTIF(Data!$3:$3,$A2)=0,0,COUNTIF(Data!$3:$3,B$1))+
.
.
.
IF(COUNTIF(Data!$10000:$10000,$A2)=0,0,COUNTIF(Data!$10000:$10000,B$1))


Thank you very much.