Dim i As Integer
Dim rng As Range
i = 2
optionsTable.FreeTable
Do While Sheet2.Cells(i, "p") <> ""
' optionsTable.FreeTable
optionsTable.AppendRow
' optionsTable(1, "TEXT") = Sheet2.Cells(i, "p").Value
optionsTable(2, "TEXT") = Sheet2.Cells(i, "p").Value
i = i + 1
Loop
'******************* do while test2