Transpose Macro

[levanoj]

I need macro than can basically transpose the Sheet1 on my workbook onto Sheet2 as shown below:

Book1
	A	B	C	D	E	F
1	LineID	UserID	UserID	UserID	UserID	UserID
2	1024	1302	1342	1343	1399
3	1025	1373	1374	1375	1376	1399
4	1030
5	1031	1373	1374
6	1032
7	1033
8	1034	1373	1374
Sheet1

Book1
	A	B	C	D
1	LineID	UserID
2	1024	1302
3	1024	1342
4	1024	1343
5	1024	1399
6	1025	1373
7	1025	1374
8	1025	1375
9	1025	1376
10	1025	1399
11	1030
12	1031	1373
13	1031	1374
14	1032
15	1033
16	1034	1373
17	1034	1374
Sheet2

The columns and rows may vary depending on the file so the above is just an example.

 

[ChrisM]

Selection is assumed to be a regular 2 dimensional range on a single sheet, as in:

A1:B10

Make sure that range is highlighted, then run the macro.

 

[kpark91]

It's probably because your sheets aren't Sheet1, Sheet2 in macro.

Try replacing all "Sheet1." with the name of your worksheet by using "Worksheets("Sheet1")."

and same thing with "Sheet2." with "Worksheets("Sheet2")"