Private Sub Worksheet_Change(ByVal Target As Range)
Dim i&, d&
If Target.Address = "$B$24" Then
[C24:M24].Clear
i = Application.Match(Target, Columns(19), 0)
d = Cells(i, 19).End(xlToRight).Column - 19
Cells(i, 20).Resize(, d).Copy [C24]
End If
End Sub