Private Sub ComboBox1_Change()
Dim j&
With Sheets("Sheet1")
For j = 1 To .Range("IV8").End(xlToLeft).Column
If .Cells(8, j).Value = ComboBox1.Value Then
.Range("A9:A55," & Left(Cells(8, j).Address(0, 0), 1) & "9:" & Left(Cells(8, j).Address(0, 0), 1) & "55").Copy
ActiveSheet.Paste Destination:=Range("D10")
End If
Next j
End With
End Sub