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