喷油嘴价格:谁帮我解释一下,谢谢

Sub InsertHeader()
Dim r As Long, LastRow As Long
Application.ScreenUpdating = False
LastRow = Sheet1.Range("A65536").End(xlUp).Row
r = 5
LastRow = LastRow - r + 1
For i = 1 To LastRow
Sheet1.Rows(3).Copy
Sheet1.Rows(r).Insert Shift:=xlDown
r = r + 2
Next i
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Sub DeleteHeader()
Dim r As Long, LastRow As Long
Application.ScreenUpdating = False
LastRow = Sheet1.Range("A65536").End(xlUp).Row
r = 5
LastRow = (LastRow - r + 1) / 2
For i = 1 To LastRow
Sheet1.Rows(r).Delete
r = r + 1
Next i
Application.ScreenUpdating = True
End Sub

另一条
Private Sub btnInsert_Click()
InsertHeader
btnDelete.Enabled = True
btnInsert.Enabled = False

End Sub

Private Sub btnDelete_Click()
DeleteHeader
btnInsert.Enabled = True
btnDelete.Enabled = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub
我不懂程序,请问以上是什么意思?可以在不同的EXCEL表格中重复应用吗?为什么我重复用就提示我语句错误呢?