VBA 行剪切到其他Sheet

VBA 行剪切代码：

Worksheets("S1").Range("A" & 1).EntireRow.Copy Worksheets("S2").Range("A" & 1)
Worksheets("S1").Range("A" & 1).EntireRow.Delete

S1 Sheet中第一行剪切到S2中第一行。
若要获取Sheet中最后非空行号，请参考《VBA 获取某列最后一行非空行号》
（完）