Creating a larger table from input data

CHende77 

Here is a macro that will create the output range:

Sub CreateOutput()
    Dim s As Long
    Dim t As Long
    Dim m As Long
    Application.ScreenUpdating = False
    Range("D3:E" & Rows.Count).ClearContents
    m = Range("A" & Rows.Count).End(xlUp).Row
    s = 3
    t = 3
    For s = 3 To m
        If s > 3 And Range("B" & s).Value <> Range("B" & s - 1).Value Then
            Range("D" & t).Value = Range("A" & s).Value
            Range("E" & t).Value = Range("B" & s - 1).Value
            t = t + 1
        End If
        Range("D" & t).Value = Range("A" & s).Value
        Range("E" & t).Value = Range("B" & s).Value
        t = t + 1
    Next s
    Application.ScreenUpdating = True
End Sub