Vba code does not copy data to other sheet

My vba code to copy row A110 of "Mod" worksheet to A9 in Table A of "Email Data" worksheet using some logic like -
in Mod worksheet it searches for data i.e. "COUNT(DISTINCTM.TRANS_ID)" if found then it searches for "row selected" and it searches for data between the two . And then it pastes 34864 to A9 of Email Data worksheet . I have written code for this but it doesn't works.

Also i need vba code similarly for searching "CAP_ACTV_LN_SEQ" and then the values inside it to be pasted i.e. row 128 and row 129 in Mod worksheet to be pasted in table e in Email Data worksheet . Remember there are 2 rows but there can be any number of row anytime.

Also the vba code for "NULLPOINTEREXCEPTION'" is there in the sheet which is working fine. It can be used for your reference.

Button for Vba code to work is present in "Email Data" worksheet.

code for "COUNT(DISTINCTM.TRANS_ID)" given below also excel sheet attached. I am very week in vba programming so any help will be great .

Worksheet .xlsm

Please Login or Register  to view this content.

I wanted to point to cell A110 which contain integer value , may be the way i do is wrong . I want something inside the loop like -
If .Cells(j, 1) = some integer value Then TotalTransaction = .Cells(j, 1)

Can anyone help me in this. Help needed urgently.

Any help here will be greatly appreciated.