vba - how to paste different column names in particular rows in single column excel -


Text after "

How to paste different column names into special rows in Excel through macros

Example for:.

I have 10 different columns, each column has 10 rows of data.

I have coded to paste those 10 column values ​​into a column (example: A column) (hence the 100 rows of data -> 10 rows * 10 columns) on the columns related to column values In B column, all those 10 column names need to be pasted.

Before my coding: 

  name 1 name 2 name 3 name 4 aEHKBFILCGJM

after my coding: 

  name 1 name 2 name 3 name 4 ABCEFGHIJKLM

What I hope now is !! 

  Name Name A Name 1b Name 1C Name 1E Name 2F Name 2G Name 2H Name 3 I Name 3J Name 3 Name 4L Name 4M Name 4

No Excellent Expert Please help me in advance

Try I have tested the following code on my example table and it is working.

, ICol) set tData = range (cells (2, iCol), tHead.End (xlDown)) tNewS = range ("A1"). End (xlDown) .Offset (1, 0) .address tData.Cut Range (tNewS) for each range in iCell (range (tNewS), border (tNewS) .end (xlDown)) iCell.Offset (0, 1) .Value2 = tHead.Value2 Next for every iCell range iCell tHead.Clear next iCol ("B1", range ("B1") .and (xlDown) .Offset (-1, 0)) iCell.Value2 = Range ("A1"). Value2 Next iCell ActiveSheet.Rows (1) .EntireRow.Delete End Sub