For Each Row in Data Table dt_Original
** Add Data Row to dt_Final with currentRow(“name”).ToString and currentRow(“age”).ToString as your values
** Add Data Row to dt_Final with currentRow(“name2”).ToString and currentRow(“age2”).ToString as your values
** Add Data Row to dt_Final with currentRow(“name3”).ToString and currentRow(“age3”).ToString as your values
** Add Data Row to dt_Final with currentRow(“name4”).ToString and currentRow(“age4”).ToString as your values
// End For Each
Write Range to a new sheet
If it’s always going to be name, name2, name3 etc you could compact the middle steps:
** For Each in {“”,“2”,“3”,“4”}
*** Add Data Row to dt_Final with currentRow(“name” + item).ToString and currentRow(“age” + item).ToString as your values
That way it automatically appends “”, 2, 3, or 4 to the column names from dt_Original