birden fazla sayfayı tek txt dosyasında birleştirmek

[burhancavus61]

Çalışma kitabımda tek sayfadan txt rapor dosyası oluşturuyorum. Bunu iki sayfa olarak tasarlamak istiyorum ama her iki sayfayı tek txt dosyasında birleştirmem mümkünmüdür acaba. Eğer mümkünse örnek makroya ihtiyacım var. Örnek kodum aşağıda bunu iki sayfa tek txt

Sub Secili_Alani_Text_Dosyasina_Yaz()
    
    Application.ScreenUpdating = False
    
    Sheets("MUHTASAR").Visible = True
    Sheets("MUHTASAR").Select
    Range("A1").Select
    
    ActiveSheet.Range("$A$1:$AF$400").AutoFilter Field:=1, Criteria1:="<>"
    Gorunur_Hucreleri_Sec_Muhtasar

    Dim DosyaYolu   As String
    Dim YolAyirici  As String
    Dim DosyaAdi    As String
    Dim DosyaSatiri As String
    
    Dim i As Long
    Dim j As Integer
    
    If Selection.Rows.Count = 1 And Selection.Columns.Count = 1 Then
        MsgBox "Büyük Olasılıkla Hücreleri Seçmediniz..."
        Exit Sub
    End If
        
    DosyaYolu = ThisWorkbook.Path
    YolAyirici = Application.PathSeparator
    DosyaAdi = "MuhtasarBeyanname-" & Format(Now, "dd.mm.yyyy") & "-" & Format(Now, "hh.mm") & ".txt"
    
    Open DosyaYolu & YolAyirici & DosyaAdi For Output As #1
    
    For i = 1 To Selection.Rows.Count
        
        DosyaSatiri = ""
        
        For j = 1 To Selection.Columns.Count
            If j <> Selection.Columns.Count Then
                DosyaSatiri = DosyaSatiri & Selection(i, j) & vbTab
            Else
                DosyaSatiri = DosyaSatiri & Selection(i, j)
            End If
        Next j
        
        Print #1, DosyaSatiri
        
    Next i
    
    Close #1
    
    MsgBox "MuhtasarBeyanname " & DosyaYolu & " Dizinine " & DosyaAdi & " Adında Oluşturuldu", vbInformation
    
    ActiveSheet.Range("$A$1:$AF$400").AutoFilter Field:=1
    
    Sheets("Bildirge").Select
    Range("A1").Select
    
    Sheets("MUHTASAR").Visible = False
    Application.ScreenUpdating = True
End Sub

olarak yapmam gerek.