宏生成工资条，为什么在WPS2019失败，在Excel2019却成功？

2020再续前缘

Sub 为什么()
'
' 为什么 Macro
' 宏由 20130510 录制，时间: 2019/05/01
'

'
    ActiveCell.Offset(0, 0).Range("A1").Select
    Selection.Copy
    ActiveCell.Offset(2, 0).Range("A1").Select
    ActiveCell.Offset(0, 0).Range("A1").Copy
    ActiveSheet.Select Replace:=False
    Selection.Insert Shift:=xlShiftDown
    ActiveSheet.Select Replace:=False
    ActiveSheet.Select Replace:=False
    ActiveCell.Offset(0, 0).Range("A1").Copy
    ActiveCell.Offset(2, 0).Range("A1").Select
End Sub
'(以上为WPS表格中同样操作生成的代码，运行失败。）


Sub 复制隔行相同()
Dim i As Long
For i = 2 To 17
' 复制隔行相同 宏
'

'
    ActiveCell.Rows("1:1").EntireRow.Select
    Selection.Copy
    ActiveCell.Offset(2, 0).Rows("1:1").EntireRow.Select
    Selection.Insert Shift:=xlDown
    ActiveCell.Select
Next
End Sub
'(以上为Excel中同样的操作生成的代码，一切正常。）
'求大神指导下为什么这样？
'难道WPS是残废？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？