Я не уверен, почему возникают ошибки при попытке добавить элемент в список комбинированного списка, как показано ниже:

Мой кодЧтобы добавить код в поле со списком, показано ниже:
1.) Сначала я подсчитываю общее количество строк рабочего листа
With Worksheets("List of Payees").ListObjects("ListofPayees").ListColumns(1).Range
Total_rows_Payees = .Find(What:="*", _
After:=.Cells(1), _
Lookat:=xlPart, _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Row
End With
2.) Добавление в список выпадающего списка 
Рабочий лист List of Payees
и содержимое строки A
показаны ниже:

Он работает, когда в рабочем листе List of Payees
есть как минимум 2 точки данных или когда я очищаю все, кроме заголовка, но не работает с 1 элементом в рабочем листе.Странно.