【Excel VBA】VBAにて抽出したシートをテキストファイルにて保存する際に最後の文字までで保存したい。

Question

以前質問した内容の続きです。
「【Excel VBA】色のついたセルがある行を別シートにコピペする方法」
リンク内容

この処理後、各シートをテキストファイルにて保存しているのですが、
作り方がよくないのか、条件が抽出された最後行から改行した状態で保存されております。

この後、別ソフトに取り込む際に改行されているとそこにも情報があるとみなされてしまうので
一旦テキストファイルを開き、最後行までカーソルを戻し保存しなおしている状態です。

↑
「40」の下にカーソルがきていますが、最後の抽出内容の横（「福岡県」の後ろ）に
カーソルがくる状態か、もしくは最初の「27」の前でも構いません。

このようにするには、どういった方法がありますでしょうか？

添削頂けると幸いです。

Sub テキストデータで保存()
 
    Application.ScreenUpdating = False
    
    Dim shName As String
    shName = ThisWorkbook.ActiveSheet.Name

    Dim Sht2 As Worksheet
    Dim Sht3 As Worksheet
        Set Sht2 = Sheets("1.新規")
        Set Sht3 = Sheets("2.廃止、3.変更")
    
    'アクティブシート（最前面に表示されているシート）を空の新規ブックにコピーする
    Sht2.Copy
    
    '新規ブックをテキスト形式で保存
    Dim wb1 As Workbook
    Set wb1 = ActiveWorkbook
    
    wb1.SaveAs _
        Filename:=ThisWorkbook.Path & "\" & "1.新規" & Format(Date, "yyyymmdd") & ".txt", _
        FileFormat:=xlText
 
    '新規ブックは不要なので保存しないで閉じる
    wb1.Close savechanges:=False
    
    'アクティブシートのクリア
    Sht2.Cells.Clear

    '空の新規ブックにコピーする
    Sht3.Copy
    
    '新規ブックをテキスト形式で保存
    Dim wb2 As Workbook
    Set wb2 = ActiveWorkbook
    
    wb2.SaveAs _
        Filename:=ThisWorkbook.Path & "\" & "2.更新" & Format(Date, "yyyymmdd") & ".txt", _
        FileFormat:=xlText
 
    '新規ブックは不要なので保存しないで閉じる
    wb2.Close savechanges:=False
    
    'アクティブシートのクリア
    Sht3.Cells.Clear

 
End Sub