Thank you for your reply.
According to your explanation, do you mean there is no way to make a customized table that will autofill the remaining columns with i loop, and some formula for excel since I have to write all values each cell by cell? Pretty new to vba. Please excuse the ignorance.

Or, if there is, could you point out which part could be amended?
When I start debugging, 

wDoc.Tables.add wRange, intNoofRows, intNoofColumns
beginning of this part, there is always an application error. What would be a problem with this case?