Experimente: substitua esta linha linha = 4 por estas 'Procurar a primeira célula vazia na coluna "B" linha = Cells(Rows.Count, "B").End(3).Row + 1 apague o trecho abaixo (este trecho não está no código que você colocou acima mas está no seu arquivo) 'Procurar a primeira célula v...