Удаление пустых строк в выпадающем списке в Excel - VBA

Question

Этот код отображает все ячейки столбца A из Лист1 ( Даже пустые значения в конце ).Что такое решение для отображения до последней строки имеет значение в выпадающий список * (и удалить значения empaty в конце )?

Private Sub UserForm_Initialize()
ComboBox1.List = Sheets("Sheet1").Range("A:A").Value
End Sub

Answer 1

Private Sub UserForm_Initialize()
With Sheets("Sheet1")
  ComboBox1.List = .Range(.Range("A1"), .Cells(.Rows.Count,1).End(xlUp)).Value
End With
End Sub

Answer 2

Попробуйте это:

With Sheets("Sheet1")
    ComboBox1.List = .Range(.Range("A1"), .Cells(.Rows.count, 1).End(xlUp)).Value
End With