excel 表格中的编程语句，请高手帮我解释一下下列语句的含义，谢谢

这程序是将表1的内容逐行复制到表2 对应的单元格中，并独立打印出来。
Sub xx()
Dim lastrow As Long ‘定义变类型
lastrow = Range("B65536").End(xlUp).Row() '读Sheet1有内容最后的行号
Sheets("Sheet2").Select ‘选择Sheet2
For i = 2 To lastrow '取Sheet1从第2行到最后一行 的内容
For j = 2 To 8 '取某行从2到8列的内容
Cells(j + 3, 3) = Sheet1.Cells(i, j) '放第3列的第5-11行
next j
For j = 9 To 13 '从9到13列的内容
Cells(j - 4, 6) = Sheet1.Cells(i, j) '放第6列的第5-9行
next j
Cells(14, 6) = Sheet1.Cells(i, 14) '取13到14列的内容
Cells(13, 6) = Sheet1.Cells(i, 15) ‘放6列的第14、13行
ActiveWindow.SelectedSheets.PrintOut Copies:=1 '打印工作表内容
next i ‘下一行内容
End Sub