List consolidation

Sub Button1_Click()
    Dim C As Range
    Dim shIn As Worksheet
    Dim shOut As Worksheet
    Dim V As Variant
    
    Set shOut = Worksheets("Output Sheet")
    Set shIn = Worksheets("Input Sheet")
    
    For Each C In shIn.Range("B:B").SpecialCells(xlCellTypeConstants, 1)
        V = Application.Match(shIn.Cells(C.Row, "A").Value, shOut.Range("A:A"), False)
        If IsError(V) Then
            With shOut.Cells(shOut.Rows.Count, "A").End(xlUp)
                .Cells(2, 1).Value = C(1, 0).Value
                .Cells(2, 2).Value = C.Value
            End With
        End If
    Next C
End Sub