Quando uma pergunta fica muito tempo sem nenhuma resposta, desconfie!

Eu diria que na maioria das situações é pq faltou anexar um modelo funcional do que está sendo pleiteado para que se possa testar o simulacro. E no VBA, sem poder testar fica complicado ajudar.

Ou é quando a explanação não foi suficientemente clara ou mixuruca em exemplos hehehe...

Claro que às vezes também é por ser excessivamente complexa ou demasiadamente trabalhosa para ser resolvida em um fórum.

Tente acrescentar algo que possa auxiliar os colaboradores do fórum a ajudar a resolver o problema... o anexo pelo menos eu diria ser essencial.

Sub PreencherComboDespesas()
    Dim iRow As Long
    Dim lastRow As Long
    Dim ws As Worksheet
    Dim List As Object 'mscorlib.ArrayList
    Dim NewItem As String
    Dim Values As Variant
    Set List = CreateObject("System.Collections.ArrayList")
    Set ws = Planilha4 'ThisWorkbook.Worksheets(1) 'ActiveCell
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    If Planilha4.Range("L1").Value = 0 Then Exit Sub
    For iRow = 2 To lastRow
        NewItem = ws.Cells(iRow, "B").Value2  <<<<----- preciso de 2 colunas, B e C
            If Not List.Contains(NewItem) Then
                List.Add NewItem
            End If
    Next iRow
    List.Sort
    Values = WorksheetFunction.Transpose(List.ToArray)
    frmDespesas.ComboDespesas.List = Values
Set List = Nothing
Set ws = Nothing
End Sub