Excel VBA 匯出txt檔求助

各位高手，想請問一下，我因工作需求，會以第二個工作頁，利用公式連結並修改第一個工作頁的內容（只有值），以呈現我要的結果，因為不確定第一個工作頁的內容筆數（每次作業筆數皆不同），所以在第二個工作頁就會預留較多的欄位（只有公式=If('工作頁！'A1="", "", '工作頁！'A1)，不一定有值），而在利用VBA做匯出成txt時，這些多餘的空白列也會一併被產出，請問要怎麼調整才會避免這個問題？
Sub 資料匯出()
myDir = ThisWorkbook.Path
ChDrive myDir ChDir myDir Set myRng = Range("A1").CurrentRegion
Dim Cell1 As String
Dim Cell2 As String
Dim filename As String
filenamed = Format(ThisWorkbook.Name) If InStr(filenamed, ".") > 0 Then
filenamed = Left(filenamed, InStr(filenamed, ".") - 1)
End If filename = "匯出" & ".txt"
Open filename For Output As #1
For i = 1 To myRng.Rows.Count
Cell1 = myRng.Cells(i, 1).Text + myRng.Cells(i, 2).Text + myRng.Cells(i, 3).Text + myRng.Cells(i, 4).Text + myRng.Cells(i, 5).Text + myRng.Cells(i, 6).Text + myRng.Cells(i, 7).Text + myRng.Cells(i, 8).Text + myRng.Cells(i, 9).Text + myRng.Cells(i, 10).Text + myRng.Cells(i, 11).Text + myRng.Cells(i, 12).Text + myRng.Cells(i, 13).Text + myRng.Cells(i, 14).Text + myRng.Cells(i, 15).Text + myRng.Cells(i, 16).Text + myRng.Cells(i, 17).Text
Print #1, Cell1;
Print #1, Cell2
Next Close #1
MsgBox ("匯出成功! ")
End Sub
這是我目前爬文抄來且正在使用的內容，還請各位高手幫忙調整，感恩