Duvida em loop FOR ... NEXT vba excel

[MarVen]

Olá galera.

Tenho dados numa planilha de romaneios de entrega, onde os numeros dos romaneios se repetem, porém para notas fiscais diferentes:

 

ROMANEIO   Cliente                Nota

0001               cliente um          12314

0001              cliente dois         12315

0001             cliente tres           12316

0002              cliente quatro      12317

0002              cliente cinco        12318         e assim por diante.

Fiz um loop for next para inserir numa listbox todos os romaneios de um determinado periodo.

Só que preciso que seja um romaneio em cada linha no listbox... da forma que fiz está trazendo todas as linhas repetindo o romaneio.

Segue abaixo o código que fiz. Se puderem me ajudar, fico grato.

 

    With w
        ultimalinha = w.Cells(Cells.Rows.Count, 1).End(xlUp).Row
        
        For u = 1 To ultimalinha
            
            datasaida = Format(w.Cells(u, 2).Value, "dd/mm/yyyy")
                        
            If Opt_data.Value = True And datasaida > datainicial And datasaida < datafinal Then
                With ListBox1
                    .AddItem
                    .List(linhalistbox, 0) = w.Cells(u, 1) 'numero da minuta
                    .List(linhalistbox, 1) = w.Cells(u, 2) 'data da saida para entrega
                    .List(linhalistbox, 2) = w.Cells(u, 3) 'motorista
                    .List(linhalistbox, 3) = w.Cells(u, 4) 'veículo
                    .List(linhalistbox, 4) = w.Cells(u, 9) 'status da minuta
                    linhalistbox = linhalistbox + 1
                End With
            End If
        Next
    End With