Eu tenho esse código que filtra pelo numero de contrato os meus dados cadastrados gostaria de filtrar além do numero do contrato ele verificar se minha coluna H tem que ser diferente de 0. o código que tenho atualmente só filtra o numero do contrato (valor pesquisado) destaque em vermelho. Desde já agradeço pela ajuda e colaboração.

Option Explicit
Private valor_pesquisado As String
_________________________________________________________________________________________________________________________________
Private Sub buscar_valores()

Dim guia As Worksheet
Dim linha As Integer
Dim coluna As Integer
Dim linhalistbox As Integer
Dim valor_celula As String
Dim conta_registros As Integer
Set guia = ThisWorkbook.Worksheets(4)

linha = 3
coluna = 2
linhalistbox = 0
conta_registros = 0

ListCadastros.Clear

With guia
While .Cells(linha, coluna).Value <> Empty
valor_celula = .Cells(linha, coluna).Value

If UCase(Left(valor_celula, Len(valor_pesquisado))) = UCase(valor_pesquisado) Then

With frmCadastroClientesDevolucao.ListCadastros
.AddItem
.List(linhalistbox, 0) = Sheets("Contrato").Cells(linha, 1).Text
.List(linhalistbox, 1) = Sheets("Contrato").Cells(linha, 2)
.List(linhalistbox, 2) = Sheets("Contrato").Cells(linha, 3)
.List(linhalistbox, 3) = Sheets("Contrato").Cells(linha, 4)
.List(linhalistbox, 4) = Sheets("Contrato").Cells(linha, 8).Text
linhalistbox = linhalistbox + 1
conta_registros = conta_registros + 1
End With

End If
linha = linha + 1
Wend
End With

lbl_Cadastros = conta_registros
lbl_Cadastros = Format(lbl_Cadastros, "00#")
End Sub