Generate pay slips and payroll recovery

　

Sub gzt()
Dim i As Integer
Rows("1:1").Select 

 ‘找到a1
For i = 1 To 10
Selection.Copy
ActiveCell.Offset(2, 0).Rows("1:1").EntireRow.Select   

'offset (row, column) EntireRow entire row
Selection.Insert Shift: = xlDown

'Shift: = xlDown down a row
the Next
End Sub

Sub gzb()
Dim i As Integer
Sheet1.Range("a3").EntireRow.Select
For i = 1 To 10
Selection.Delete Shift:=xlUp
ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select

'Move row
the Next
End Sub