VBA发送邮件代码如何正确设置A1至G列末单元格的动态Range

需要实现将各工作表内的表格通过邮件发送给对应收件人，目前除动态选取单元格范围的逻辑外其余功能均调试正常，核心需求是选中从A1单元格到G列最后一个有数据单元格的区域，现有代码的Range选取逻辑始终无法正常生效。
原有存在问题的代码片段如下：

Sub Email1()

Dim rng As Range
Dim OutApp As Object
Dim OutMail As Object

Set rng = Nothing
On Error Resume Next


Set rng = Sheets("Rec1").Range("A1", Range("A1").End(xlDown)).SpecialCells(xlCellTypeVisible)
On Error GoTo 0

If rng Is Nothing Then
    MsgBox "The selection is not a range or the sheet is protected" & _
           vbNewLine & "please correct and try again.", vbOKOnly
    Exit Sub
End If

• 选取结束位置锚定A列最后非空单元格，未按需求锚定G列最后非空单元格，选取范围未覆盖B-G列内容
• 代码中未加父对象限定的Range("A1")会默认指向当前激活工作表，若激活表不是Rec1，会触发跨表范围不匹配错误
• 从A1位置使用End(xlDown)向下选取的逻辑存在漏洞：A列中间若存在空单元格，选取范围会直接停在空单元格上方，漏选下方数据

直接替换原有rng赋值的逻辑即可，修正后的完整代码片段如下：

Sub Email1()

Dim rng As Range
Dim OutApp As Object
Dim OutMail As Object
Dim lastRow As Long

Set rng = Nothing
On Error Resume Next

With Sheets("Rec1")
    ' 从G列最底部向上定位最后一个有数据的行号，规避中间空值导致的选不全问题
    lastRow = .Cells(.Rows.Count, "G").End(xlUp).Row
    ' 选取A1到G列最后一行的可见单元格区域
    Set rng = .Range("A1:G" & lastRow).SpecialCells(xlCellTypeVisible)
End With

On Error GoTo 0

If rng Is Nothing Then
    MsgBox "The selection is not a range or the sheet is protected" & _
           vbNewLine & "please correct and try again.", vbOKOnly
    Exit Sub
End If

• 采用从列底部向上查找的方式定位最后行，完全避免列内空单元格导致的选取截断问题，且锚定G列做行号判断，完全匹配选取到G列最后数据行的需求
• 所有单元格、范围对象都绑定到Rec1工作表，不受当前激活工作表的影响，不会出现跨表报错
• 范围直接明确为A列到G列的连续区域，不会出现列覆盖不全的问题

内容的提问来源于stack exchange，提问作者FBeckenbauer4