【求助】谁帮忙解释下则段代码，在线等待

哎呀啊

我想修改下，但是理解不了。希望高手给详细解释下。
主要是这代码 iRow = .Cells(65536, 1).End(xlUp).Row - 1 我不太懂

Dim iRow As Long
Dim i As Long
Dim arr
Range("b2:g32").Interior.ColorIndex = 0
Range("b2:g32").ClearComments
With Sheets("date")
    iRow = .Cells(65536, 1).End(xlUp).Row - 1
    '取Date表数据放进数组
    arr = .Cells(2, 1).Resize(iRow, 6).Value
End With
With Sheet4
    For i = 1 To iRow
        If arr(i, 5) = "大定" Then
            '如果是大定，相应位置K - P 列把户主名写进批注并标记相应颜色
            With .Range(arr(i, 1)).Offset(1, 1)
               On Error Resume Next '打开错误开关
                    .AddComment
                    .Comment.Visible = False
                    .Comment.Text Text:=arr(i, 6)
                    .Interior.ColorIndex = 8
                Err.Clear
                On Error GoTo 0 '关闭错误开关
            End With
            End If

Jdtax

iRow = .Cells(65536, 1).End(xlUp).Row - 1   ‘Sheets("date")工作表中A列有数据的最后一行行号减1

yygpd500

刚刚在“此贴纯属找骂”中回了贴，发现楼主也是个典型了，标题加“谁”？那个“谁”欠你的？“请帮忙解释一句代码”不就行了？
另：
iRow = .Cells(65536, 1).End(xlUp).Row - 1
也可写成（建议最好如此写，这样，此句代码在其他版本的Excel中一样适用）：
iRow = .Cells(.rows.count, 1).End(xlUp).Row - 1
此句代码的意思如2楼所说，之所以减1，应该是排除最后一行（如最后一行为合计行什么的）