Copy paste one sheet to another sheet

[Sairavindra]

Dear sir's,
I am new to this forum.
I need a help .
I have excel file .
Sheet 1 contains info in a row like A colum
1 to 24 vertically.
I want to copy paste the same in sheet 2 as A to Z
Please advice the formula.

 

[Logit]

Here is one way :

Option Explicit

Sub TransposeColToRow()
Dim lastCol As Long

With Sheets("Sheet1")
    'find the last used column on row 3
    lastCol = .Cells(.Columns.Count, 1).End(xlToLeft).Column
    .Range(.Range("A1:A24"), .Cells(24, lastCol)).Copy
End With

'paste and translose
Sheets("Sheet2").Range("A1").PasteSpecial Paste:=xlPasteAll, _
              Operation:=xlNone, SkipBlanks:=False, Transpose:=True
End Sub

 

[Sairavindra]

TQ .
But I don't know how to follow this.
Could you please arrange a sheet of excel.
I will download the same.

 

[Logit]

I posted workbook to my posting in #2.

 

[vletm]

Sairavindra​

As You've asked this in Ask an Excel Question
Do below:
Select Sheet1
Select left top corner
Press Ctrl+A
Press Ctrl+C
Select Sheet2
Select cell A1
Press right button of mouse
Select PasteSpecial
Select Transpose