array to fill combo box

I'm currently having difficulties trying to fill a combo box from data on a spreadsheet. As in just one row.

Private Sub cmbtest_Change()

'Define Application Array
Dim Arr_Application()

'Size Array
ReDim Arr_Application(100)

'Declare last row in table
Dim LastRow As Long
LastRow = ActiveSheet.Cells(65536, 1).End(xlUp).Row

'Fill Array
Dim i As Long       'row counter
Dim ipos As Long    'array fill counter
i = 1
Do While i <= LastRow
    If Cells(i, 5).Value = Me.cmbtest.Value Then

then I'm stuck. Just don't know what to do from their to read up to the last row in a column for the combo box.

Any help appreciated