lastRow应始终基于填充的列，通常A列始终填充，因此您用途：

Dim lastRow as Long 'Integer won't cut it with most bigger data sets
lastRow = master.Range("A" & Rows.Count).End(xlUp).Row

如果您希望它基于E列，请在插入新列之前进行，而不是之后;）

正如您所发现的，您用来查找最后一行的技术只有在您选择的列中有数据时才有效。一个更好的方法可能是使用Find功能。下面是我用来获取LastRow的函数（但请注意，对于完全空的工作表，它返回第一行）

Function lastRow(rg As Variant) As Long
'Find the last row used in a worksheet - regardless of where the data starts and ends
'and regardless of whether the data is contiguous or jagged
'Note use of Variant for the input range parameter
'This allows both worksheets and ranges to passed into the function
    On Error Resume Next
    Dim lr As Long
    lr = rg.Cells.Find(What:="*" _
                    , Lookat:=xlPart _
                    , LookIn:=xlFormulas _
                    , searchorder:=xlByRows _
                    , searchdirection:=xlPrevious).row
    If Err.Number > 0 Then
        lr = 1  'cater for a completely empty sheet
    End If
    On Error GoTo 0
    lastRow = lr
End Function