Separate text based on long underline / underscore in Word and then transfer the table to Excel using VBA

Question

I have a Table in word which i would like to bring into excel, i am using the following code from Damon to achieve the same using VBA. While doing so, i need help to transfer th