每个工作表循环的Excel VBA（在多个工作表上运行相同的VBA宏代码）

I have Workbook with 3 Worksheets with different data. And now I'm trying to execute the same code for each of Worksheets (concatenate specific words with data from 1,3 Columns and then transpose Range of 3 cells from rows to Column) The code below doesn't actually do that i need.It simple do correctly for the last sheet and then copy this result to another sheets. But i need the unique result for each sheet. Any help is greatly appreciated!I have Workbook with 3 Worksheets with differen