Return ALL Non-zero Cell VALUE And Corresponding Column Header For All IDs

I have a table like the following where each ID can have no, 1 or multiple values associated with it:

Table1
ID>>>A>>>B>>>C>>>D
1>>>> >>> >>>10>>>
2>>>> >>> >>> >>>>50
3>>>5>>> >>> >>>>2
4>>> >>> >>> >>>>

I have another table that only lists IDs
Table2
ID
1
2
3
5

I want a VBA code such that if ID is in Table2, VBA looks for the matching ID in Table1 and if the matching ID found, it looks for ALL non-empty cells and if a non-empty cell is found in the row, it returns the value in the cell and the header to give something like this

Table3
ID>Column1>Value1>Column2>Value2
1>>>>c>>>10>>
2>>>>D>>>50>>
3>>>>A>>>5>>>>>>D>>>>>>>2>>>