Insert and Paste

[jpprespa]

Hello,

I am working on a macro that has 240 columns of data with a value in the first row (A1) that I need to copy and paste in the next column. Thus, I have wrote the vba to go through the worksheet and insert 240 blanks columns.

Dim j As Integer, k As Integer, m As Integer​

​

j = Range("A1").End(xlToRight).Column​

'j is the last column​

For k = j To 2 Step -1​

Range(Cells(1, k), Cells(1, k)).EntireColumn.Insert​

Next k
​

Now I need to copy the data in the first cell (A1) to the new inserted column (B2:B), throughout the document. The length of each column of data changes, some will be 4 cells in length, others might be 60 cells in column length.

I tried this:
Dim LR As Long

LR = Range("C" & Rows.Count).End(xlUp).Row
Range("C1").AutoFill Destination:=Range("D1:D" & LR)
For m = LR To 2
Next m


However as you can imagine by me posting here, it did not work. Suggestions?

New to VB. Thanks!
Joe

 

[nuked]

Perhaps look into using Range.PasteSpecial Transpose:=True

 

[jpprespa]

Thanks nuked! I'll search on that and give it a try.

 

[jpprespa]

Just so folks understand, my original date looks like this:

132	133	134	135
32024R022;	32003H018;	32259R154;	32713C010;
32024R024;	32003H017;	32259R134;	32713C003;
32024R032;	32003R018;	32259H015;	32724C023;
	32003H016;	32259R171;
	32003H019;	32259R189;
	32003R017;	32223R057;
	32003R002;
	32003R010;

<colgroup><col width="64" span="4" style="width:48pt"> </colgroup><tbody>
</tbody>

and I need it to look like this:

132		133		134		135
32024R022;	132	32003H018;	133	32259R154;	134	32713C010;	135
32024R024;	132	32003H017;	133	32259R134;	134	32713C003;	135
32024R032;	132	32003R018;	133	32259H015;	134	32724C023;	135
		32003H016;	133	32259R171;	134
		32003H019;	133	32259R189;	134
		32003R017;	133	32223R057;	134
		32003R002;	133
		32003R010;	133

<colgroup><col width="64" span="8" style="width:48pt"> </colgroup><tbody>
</tbody>

I don't know if the transpose will work in this case.

 

[nuked]

Gotcha. Misunderstood. Will look at this from work in the morning if nobody else chips in before then. Looks simple enough.