Excel macro to transpose horizontal data to vertical

How could I take the data in the attached workbook (A1:F6) and transpose it into two columns using a macro?

Hi

here goes

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 Cells(i, Columns.Count).End(xlToLeft).Column
      outrow = OutSH.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
      OutSH.Cells(outrow, 1).Value = Cells(i, 1).Value
      OutSH.Cells(outrow, 2).Value = Cells(i, j).Value
    
    Next j
  Next i
End Sub

rylo

Thank you rylo, this seems to do the trick.

This code is very useful. But when used on huge data range it becomes slow.. Sir can you pls help me in this..