Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim arr(), lr As Long, i As Long
If Sh.Name = "база" Then Exit Sub
If Target.Column < 4 Or Target.Column > 5 Then Exit Sub
If Target.Row < 7 Or Target.Row > 30 Then Exit Sub
r = Target.Row: c = Target.Column
Select Case Target.Column
Case 4
lr = Sheets(1).Cells(Sheets(1).Rows.Count, "C").End(xlUp).Row
arr() = Sheets(1).Range("C1:C" & lr).Value
Case 5
lr = Sheets(1).Cells(Sheets(1).Rows.Count, "D").End(xlUp).Row
arr() = Sheets(1).Range("D1:D" & lr).Value
End Select
UserForm1.ListBox2.Clear
For i = 2 To UBound(arr)
If arr(i, 1) <> "" Then
UserForm1.ListBox2.AddItem arr(i, 1)
End If
Next i
UserForm1.Show
End Sub