Excel Macro code to move data from one line on a sheet to multiple lines on another sheet

See if this helps

Sub abc()
 Const shInput As String = "InputSheet"    '<=== Name of sheet to move data from. Change for your needs
 Const shOutput As String = "OutputSheet"  '<=== Name of sheet to output data to. Change for your needs
 Dim i As Long, ii As Long, n As Long
 Dim a
 
 With Worksheets(shInput)
    a = .Range("a1").CurrentRegion
 End With
 
 
 With Worksheets(shOutput)
    .Cells.Delete
    For i = 1 To UBound(a)
        n = n + 1
        .Cells(n, 1).Resize(, 5) = Array(a(i, 1), a(i, 2), a(i, 3), a(i, 4), a(i, 5))
        For ii = 6 To UBound(a, 2) - 1 Step 2
            If IsEmpty(a(i, ii)) Or i = 1 Then Exit For
            n = n + 1
            .Cells(n, 4).Resize(, 2) = Array(a(i, ii), a(i, ii + 1))
        Next
    Next
    .Range("a1").CurrentRegion.Borders.LineStyle = xlContinuous
 End With
End Sub