Gabriel Spinola

Boa Tarde Midori Copiei o código que você criou acima e ele salva tudo certo. Porém quando eu abro no notepad++, aparece uma linha em branco a mais do que a tabela tem. Isso atrapalha meu fluxo para frente com esse arquivo. sabe como me ajudar? Private Sub CommandButton1_Click() Dim Arquivo As Variant Dim Linhas As Long Arquivo = Application.GetSaveAsFilename( _ InitialFileName:="C:\Users\Public\", _ FileFilter:="Delimitado por vírgulas (*.csv), *.csv") If Arquivo <> False Then ThisWorkbook.ActiveSheet.Copy With ActiveWorkbook.ActiveSheet Linhas = WorksheetFunction.CountA(.[O:O]) .Range(.Cells(Linhas + 1, 1), _ .Cells([A:A].Rows.Count, 1)).EntireRow.Delete End With ActiveWorkbook.SaveAs Filename:=Arquivo, FileFormat:=xlCSV, Local:=False Application.DisplayAlerts = False ActiveWorkbook.Close Application.DisplayAlerts = True End If End Sub No excel não tem nada nas linhas abaixo da tabela preenchida.