Automated Macro - Transpose

Hi, can any pro here help on this matter

eg
Transpose

BUS CARA CARB CARC
MV MV1 MV2 MV3 MV3

into
BUS CARA
BUS CARB
BUS CARC
MV MV1
MV MV2
MV MV3


Is there any ready make Marco that I could use to solve the problem? As example only a few data, but actual data will over 20,000 row.

Hope that some of the pro here can enlighten me. Thanks

Hi

Assumes:
1) you have an output sheet called sheet2 in your workbook.
2) Your source data starts in A1, and is 4 columns wide.
3) You are on your source sheet when you run the macro.

Sub AAA()
  Dim OutSH As Worksheet
  Set OutSH = Sheets("Sheet2")
  
  For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    For j = 2 To 4
      outrow = OutSH.Cells(Rows.Count, 1).End(xlUp).Row + 1
      OutSH.Cells(outrow, 1).Value = Cells(i, 1).Value
      OutSH.Cells(outrow, 2).Value = Cells(i, j).Value
    Next j
  Next i
End Sub

HTH

rylo