Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$I$1" Then
For n = 1 To [B]50[/B]
If Cells(1, n) = Target Then
Range(Cells(2, n).Address & ":" & Cells([B]200[/B], n).Address).Copy Destination:=Range("I2")
End If
Next n
End If
End Sub