Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("G5")) Is Nothing Then
        Application.EnableEvents = False
        Range("C9:D1048576").ClearContents
        Dim x As Integer
        On Error Resume Next
            x = WorksheetFunction.Match(Target.Value, Rows(1), 0)
        On Error GoTo 0
        If x > 0 Then
            Dim y As Long
            y = Cells(1, x).End(xlDown).Row
            If y > 1 And y < 100 Then
                Dim a As Variant
                a = Range(Cells(1, x), Cells(y, x + 1))
                Range("C9").Resize(UBound(a, 1), UBound(a, 2)) = a
            End If
        End If
        Application.EnableEvents = True
    End If
End Sub