急，帮我解释一下

byzzxxxzws

Sub 联转()
        Dim no1 As Integer
        Sheets("联转").Select '进入打印页面
        no1 = 1
        no2 = InputBox("请输入打印内容行数：", "对话框", 1)
        If no2 = "" Then '如果在对话框中选择了取消按钮，则终止宏！
           Exit Sub
        End If
        Do While no1 <= no2
           Range("c16").Value = Sheets("出票").Range _
           ("h" + Trim(Str(no1 + 1))).Value '更新收款人
           Range("c18").Value = Sheets("出票").Range _
           ("p" + Trim(Str(no1 + 1))).Value '更新用途
           Range("c17").Value = Sheets("出票").Range _
           ("j" + Trim(Str(no1 + 1))).Value '更新金额
           ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, _
           Collate:=True '打印输出
           no1 = no1 + 1
        Loop
    End Sub