[Duvidas ListBox Excel]

Meus amigos, boa noite!

Estou com uma listbox carregando apenas a primeira e ultima linha da planilha e as demais ficam em branco. já alterei algumas propriedades da listbox e até fiz um novo arquivo e não encontrei o erro. O código eu peguei comparei com outros e é bem simples. Podem me ajudar?

 

Sub Filtro_Acumulado()

linha = 1
linhalisbox = 0

Me.LBOrcadoRealizado.ColumnWidths = "80;70;70;80"

Do Until Sheets("BANCO_DE_DADOS").Cells(linha, 1) = ""

With Me.LBOrcadoRealizado
    .AddItem
    .List(linhalistbox, 0) = Sheets("BANCO_DE_DADOS").Cells(linha, 1)
    .List(linhalistbox, 1) = Sheets("BANCO_DE_DADOS").Cells(linha, 2)
    .List(linhalistbox, 2) = Sheets("BANCO_DE_DADOS").Cells(linha, 3)
    .List(linhalistbox, 3) = Sheets("BANCO_DE_DADOS").Cells(linha, 4)
    
End With
linha = linha + 1 'soma ela mesma, pula para próxima linha
linhalistbox = linhalisbox + 1
Loop

End Sub

[Indentificar o menor numero]

Boa noite,

Estou a umas 15 horas programando (começando) e não consegui fazer com que identifique o menor valor de laco, onde estou errando?

algoritmo "SomadorNumerio"

var

cont, n, s, maior, menor: inteiro

inicio

cont <-1

s <- 0

enquanto (cont <= 10) faca

escreva ("Digite o ", cont,"o. valor: ")

leia (n)

se (n > maior) então //funcao para reconhecer o maior numero digitado

maior <- n

fimse

se (n >= 0) então //funcao para reconhecer o menor numero digitado

//!!!!!!!!!!!!!!não ESTA FUNCIONANDO!!!!!!!!!!!!!

menor <- n

fimse

s <- s + n

cont <- cont + 1

FimEnquanto

escreval ("A soma de todos o valores foi ", s)

escreval ("O maior valor digitado foi ", maior)

escreva ("O menor valor digitado foi ", menor)

fimalgoritmo