need vba to fill values under particular header from master sheet

Dear expert

I have some consolidation report i want fill data's in formatted table under respective column header's

i have login code is 451414 like that 0062-451414-0-XM000-0000 in rawdata with amount i want split after hyphen of every value move to desire column header

for e.g
0062-451414-0-XM000-0000

0062 to Company Code,[header]
451414 to Account,[header]
(if value is 0) change it 6 digit 00000 to Cost Center,[header]
XM000 to Sub-Account,[header]
0000 to Intercompany.[header]

towards 451414 amount is in D column move to credit amount[header]

please find the attachment