Convert From Text To Column And Paste The Converted Data In Other Sheets?

I want some vbs code on my 'Copy All' button in Email Data sheet which will do my work. Its a bit lengthy but who knows the concept will find it easy.

I have one sheets -

Sheet attached - Worksheet .xlsm

Workshet.xlsm [Data in 'Mod' sheet i)should convert from text to column and paste in 'Row Data' sheet ii) then transfer form Row Data sheet to 'Email Data' sheet 'Mobile Data' sheet and 'Other Data' sheet when Copy All button is clicked in Email Data sheet.

There should be some logic which will fetch appropriate date from 'Mod' sheet to the respective sheet . We can have some kind of logic like

If 'Register' found then take the value of register and workstation and paste in Email Data sheet.

All data below should be fetched from Row Data sheet which is blank now and will get the data when we click the Copy All button ,

1st Register Count:

Below Register Count (*) i.e. 16 If workstation count present copy to E15 in Email Data sheet in Table B

Below Register Count (*) i.e. 9 If register count present copy to E16 in Email Data sheet Table B

2nd Register Count:

Below Register Count (*) i.e. 8942 If workstation count present copy to C15 in Email Data sheet in Table B
Below Register Count (*) i.e. 2883 If register count present copy to C16 in Email Data sheet in Table B

3rd Register Count:

Below Register Count (*) i.e. 0 If workstation count present copy to E18 in Email Data sheet in Table B

Below Register Count (*) i.e. 1 If register count present copy to E19 in Email Data sheet in Table B

4th Register Count:
Below Register Count (*) i.e. 98 If workstation count present copy to C18 in Email Data sheet in Table B
Below Register Count (*) i.e. 999 If register count present copy to C19 in Email Data sheet in Table B

Substr:
B32:B44 will be pasted in C29:C41 in Email Data sheet in Table C
i.e. 10 to 22 values should match in corresponding 10 to 22 values in Email Data sheet , if not not any value then 0

B50:B62 will be pasted in B29:B41 in Email Data sheet in Table C
i.e. 10 to 22 values should match in corresponding 10 to 22 values in Email Data sheet , if not not any value then 0