I have a workbook with multiple pages. Each page has data in only first column.
I like to copy the data from the first column and paste transpose into first
2 rows.
and then delete the first column.
I have the following code, but it is not working properly.
1) it is not looping through the excel pages.
2. It is deleting the entire data ( not just the first column) except the
first cell.


Can you tell me where the code is wrong and also can you suggest a more
efficient way to do this.
thanks in advance.
###
Public Sub Paste_Transpose()
Dim ws As Worksheet

Dim Lastrow As Long
For Each ws In ActiveWorkbook.Worksheets
Lastrow = ActiveCell.SpecialCells(xlCellTypeLastCell).Row


Range(Cells(1, 1), Cells(Lastrow, 1)).Copy
Range(Cells(1, 1), Cells(2, Lastrow + 1)).PasteSpecial Paste:=xlPasteAll,
Transpose:=True
Range(Cells(1, 1), Cells(Lastrow, 1)).Delete
Next ws



End Sub