Prezados tenho a seguinte rotina que exporta para txt (o código não é meu, infelizmente desconheco o autor)

Sub Exportar() 
    Application.DisplayAlerts = False 

    template_file = ActiveWorkbook.FullName 

    fileSaveName = Application.GetSaveAsFilename( _ 
                   InitialFileName:="C:username" + _ 
                                    VBA.Strings.Format(Now, "mmddyyyy") + ".txt", _ 
                   fileFilter:="Text Files (*.txt), *.txt") 

    If fileSaveName = False Then 
        Exit Sub 
    End If 

    'cria uma cópia da pasta de trabalho atual da planilha atual 
    Dim newBook As Workbook 
    Dim plan As Worksheet 
    Set newBook = Workbooks.Add 

    ThisWorkbook.ActiveSheet.Copy Before:=newBook.Sheets(1) 

    'exclui as demais planilhas 
    For Each plan In newBook.Sheets 
        If plan.Name <> ActiveSheet.Name Then 
            newBook.Worksheets(plan.Index).Delete 
        End If 
    Next 

    newBook.SaveAs Filename:= _ 
                          fileSaveName, FileFormat:=xlTextWindows, _ 
                          CreateBackup:=False 

    'fecha a pasta de trabalho gerada 
    newBook.Close SaveChanges:=True 
    Set newBook = Nothing 

    MsgBox "O arquivo foi exportado com sucesso! ", vbInformation, "Exportar arquivos" 

End Sub 

A duvida é o seguinte, na forma que o codigo está o mesmo exporta para o txt todas as linhas da planilha ou seja 65536 linhas! Como posso ajustar a rotina para que exporte apenas as linhas preenchidas?