Michael Mallmann

Boa Noite, Estou programando um relatório em uma arquivo do Excel onde tenho uma planilha que funciona como o banco de dados e as outras que estou montando servirão como os relatórios que preciso. No primeiro relatório que criei, consegui fazer com que funcionasse certinho, mas este segundo não consigo. Vou colar o código fonte aqui, é pequeno, porque talvez possa agilizar as coisas. Antes de qualquer coisa já agradeço quem puder ajudar. Sub Relatório_Serragem() Sheets("Rel_Analise_Estoque").Range("A7:K50000").ClearContents lin = 2 linha = 7 Do Until Sheets("Dados_Estoque").Cells(lin, 6) = "" If Sheets("Dados_Estoque").Cells(lin, 6) = Range("E1") Then Sheets("Rel_Analise_Estoque").Cells(linha, 1) = Sheets("Dados_Estoque").Cells(lin, 1) Sheets("Rel_Analise_Estoque").Cells(linha, 2) = Sheets("Dados_Estoque").Cells(lin, 2) Sheets("Rel_Analise_Estoque").Cells(linha, 3) = Sheets("Dados_Estoque").Cells(lin, 3) Sheets("Rel_Analise_Estoque").Cells(linha, 4) = Sheets("Dados_Estoque").Cells(lin, 4) Sheets("Rel_Analise_Estoque").Cells(linha, 5) = Sheets("Dados_Estoque").Cells(lin, 5) Sheets("Rel_Analise_Estoque").Cells(linha, 6) = Sheets("Dados_Estoque").Cells(lin, 6) Sheets("Rel_Analise_Estoque").Cells(linha, 7) = Sheets("Dados_Estoque").Cells(lin, 13) Sheets("Rel_Analise_Estoque").Cells(linha, 8) = Sheets("Dados_Estoque").Cells(lin, 14) Sheets("Rel_Analise_Estoque").Cells(linha, 9) = Sheets("Dados_Estoque").Cells(lin, 18) Sheets("Rel_Analise_Estoque").Cells(linha, 10) = Sheets("Dados_Estoque").Cells(lin, 19) Sheets("Rel_Analise_Estoque").Cells(linha, 11) = Sheets("Dados_Estoque").Cells(lin, 20) Sheets("Rel_Analise_Estoque").Cells(linha, 12) = Sheets("Dados_Estoque").Cells(lin, 21) Sheets("Rel_Analise_Estoque").Cells(linha, 13) = Sheets("Dados_Estoque").Cells(lin, 22) linha = linha + 1 End If lin = lin + 1 Loop End Sub Tem algo visivelmente errado no código? Porque depurando ele o VB não faz nada. E quando clico no botão que ativa a macro, nada acontece também. Obrigado!