Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim l As Integer
Dim J As Integer
Dim I As Integer
Dim K As Integer
If Target.Address = "$G$8" Then
UserForm1.Show
End If
For l = 19 To 24
Cells(l, 4).Clear
Next
I = Sheets("REFERENCE").Range("C500").End(xlUp).Row
For J = 1 To I
If Cells(16, 3).Value = Sheets("REFERENCE").Cells(J, 1).Value Then
Cells(19 + K, 4).Value = Sheets("REFERENCE").Cells(J, 3)
K = K + 1
End If
Next
End Sub