更新下拉列表循环

Question

I'm trying to create a list which checks a database for the desired name and then adds that item to the drop down. The code I have so far works as in it checks the name but then overwrites any previous entries in the list. How can I alter so that it adds a new list item each time it finds the correct data?

While ThisWorkbook.Worksheets("Inventory Database").Range("A" & j).Value <> ""
If ThisWorkbook.Worksheets("Inventory Database").Range("A" & j) = ThisWorkbook.Worksheets("Equipment Availability").Cells(1, i) Then
dvList = ThisWorkbook.Worksheets("Inventory Database").Range("B" & j)

'~~> Creates the list 
With Sheets("Equipment Availability").Cells(2, 2).Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:=dvList
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = ""
    .ErrorTitle = ""
    .InputMessage = ""
    .ErrorMessage = ""
    .ShowInput = True
    .ShowError = True
End With
End If
j = j + 1
Wend    

Answer 1

You should only create the validation list once, while referencing a named range. If you expand the named range on every loop (adding the new value), then the validation list will automatically be updated.