You didn't say what you wanted to end result to look like. Attaching a sample workbook with a Before and After and enough data to show the issue really helps
This assume that the data is 'nice' and take the input sheet with data like your post, and puts it on another sheet
You're have to massage it to fit your template
Option Explicit
Sub test()
Dim i As Long, o As Long
o = 2
With Worksheets("Sheet1")
For i = 2 To .Cells(1, 1).CurrentRegion.Rows.Count Step 2
Worksheets("Sheet2").Cells(o, 1).Value = .Cells(i, 1).Value
Worksheets("Sheet2").Cells(o, 2).Value = .Cells(i + 1, 1).Value
o = o + 1
Next I
End With
End Sub