如何修复MS Excel代码中的自动化错误

Question

运行一些“插入行”代码时出现自动化错误。该代码最初是为Excel for Mac开发的，但是现在可以在Windows上运行。

应该插入一或三行，具体取决于我使用的按钮。 两个按钮都出错。

我第一次打开文件时可以插入行。但是，在向网格中输入一些内容之后，当我插入一行或三行内容时，会出现自动化错误。 Image of error mesage

这是导致错误的代码部分。

'''''公共子InsertRow（）

Dim x As Long

  ' Go to last cell
  Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select

  ' Copy formula from cell above
  Rows(Selection.Row - 1).Copy
  Rows(Selection.Row).Insert Shift:=xlDown     

'THE LINE ABOVE IS WHERE THE ERROR IS FLAGGED

  x = ActiveCell.Row
    Selection.Rows(x).RowHeight = 36

我一直不得不关闭并打开文档。我是否缺少某些代码或仅适用于Mac机器的内容？我现在正在使用Windows。 谢谢您的帮助！