how to transpose sheet1 data to sheet2 using loop

[Niranjanmeyda]

ALEX	JACOB	RYAN	FURY
A	AA	AAA	AAAA
B	BB	BBB	BBBB
C	CC	CCC	CCCC

I want it like this using loop but without copy paste method
sheet 2

ALEX	A	B	C
JACOB	AA	BB	CC
RYAN	AAA	BBB	CCC
FURY	AAAA	BBBB	CCCC

 

[Fluff]

How about

Sub Niranjanmeyda()
   Dim Rng As Range
   Dim UsdCols As Long
   
   With Sheets("Sheet1")
      UsdCols = .Cells(1, Columns.Count).End(xlToLeft).Column
      Set Rng = .Range("A1", .Range("A" & Rows.Count).End(xlUp)).Resize(, UsdCols)
   End With
   Sheets("Sheet2").Range("A1").Resize(Rng.Columns.Count, Rng.Rows.Count).Value = Application.Transpose(Rng)
End Sub

 

[Niranjanmeyda]

How about

Sub Niranjanmeyda()
   Dim Rng As Range
   Dim UsdCols As Long
  
   With Sheets("Sheet1")
      UsdCols = .Cells(1, Columns.Count).End(xlToLeft).Column
      Set Rng = .Range("A1", .Range("A" & Rows.Count).End(xlUp)).Resize(, UsdCols)
   End With
   Sheets("Sheet2").Range("A1").Resize(Rng.Columns.Count, Rng.Rows.Count).Value = Application.Transpose(Rng)
End Sub

i want to do it using loop

 

[Fluff]

Why? Loops are slow & inefficient.

 

[Niranjanmeyda]

Why? Loops are slow & inefficient.

because i need loop

 

[Fluff]

Is this homework?

 

[Niranjanmeyda]

Is this homework?

it's my personal work