Dificuldade com o Do until Loop

[Igor de Araujo]

Sub procurarValor()

'este código é utilizado para achar um valor em uma tabela de fluxo de caixa e jogá-lo para outra planilha onde os gastos estão separados por dia(colunas) e por categoria(linhas)

'estou tendo problema com a utlização do DO UNTIL LOOP dentro de outro LOOP, ajuda por favor!!!

'variáveis

Dim ultimaLinha As Long
Dim dia As Long
Dim colunaProcura As Long
Dim linhaProcura As Long
Dim colunaDiaAchada As Long
Dim linhaCategoriaAchada As Long
Dim x As Long
Dim categoria As String

colunaProcura = 1
linhaProcura = 1
x = 0

'achar o dia na planilha Fluxo

Planilha4.Select
Range("TabelaFluxo[[#Headers],[Saldo]]").Select
Selection.End(xlDown).Select
ultimaLinha = ActiveCell.Row

Do Until ultimaLinha = 10

ultimaLinha = ultimaLinha - x

'dia está na coluna P(16)

dia = Planilha4.Cells(ultimaLinha, 16).Value

'achar a coluna que contém o dia na planilha Resultados Mês
'a linha de dias nessa planilha é a 6

    Do Until Planilha5.Cells(6, colunaProcura).Value = dia

    colunaProcura = colunaProcura + 1

    Loop

'coluna do dia foi achada

colunaDiaAchada = colunaProcura

'achar categoria na tabela Fluxo
'categoria está na coluna I(9)

categoria = Planilha4.Cells(ultimaLinha, 9).Value

'achar a linha que contém a categoria na planilha Resultados Mês
'a coluna de categorias nessa planilha é a 1

    Do Until Planilha5.Cells(linhaProcura, 1).Value = categoria

    linhaProcura = linhaProcura + 1

    Loop

linhaCategoriaAchada = linhaProcura

'linha categoria foi achada
'colocar o valor na determinada célula
'valor está na coluna L(12) da planilha Fluxo

Planilha5.Cells(linhaCategoriaAchada, colunaDiaAchada).Value = Planilha4.Cells(ultimaLinha, 12).Value
x = x + 1

Loop

'
End Sub