Excel中vba发到苹果电脑上运行不了

这是个汇总根目录下其他Excel数据的一个宏，放在Windows中正常运行，但发到苹果电脑中却无法运行

Public toRow As Integer

Public fromRow As Integer
Sub insert() '宏的名字
Dim myPath$, myFile$, AK As Workbook, aRow%, tRow%, i As Integer '定义变量
toRow = 5 '目标文件粘贴的起始行位置
Application.ScreenUpdating = False '冻结屏幕，以防屏幕抖动
myPath = ThisWorkbook.Path '把文件路径定义给变量
myFile = Dir(myPath & "*.xlsx") '依次找寻指定路径中的*.xlsx文件
Do While myFile <> "" '当指定路径中有文件时进行循环
toRow = toRow + 1 '每一个文件对应目标文件的新的一行，顺序往下粘贴
If myFile <> ThisWorkbook.Name Then '扫描除了当前目标文件外的每一个.xls文件
Set AK = Workbooks.Open(myPath & "" & myFile) '打开符合要求的文件
tempRow = 5 '源文件的复制起始行位置
For i = 1 To 1 '每一个源总共8行
fromRow = tempRow + i '源文件逐行往下复制
AK.Sheets(1).Range("a" & fromRow & ":di" & fromRow).Copy ThisWorkbook.Sheets(1).Range("a" & toRow & ":di" & toRow) '执行复制操作，&符号是字符拼接，第一次执行的时候是从C6：N6复制到Sheets1的C6：N6
Next
Workbooks(myFile).Close False '关闭源工作簿,并不作修改
End If
myFile = Dir '找寻下一个*.xls文件
Loop
Application.ScreenUpdating = True '冻结屏幕,此类语句一般成对使用
MsgBox "导入完成" '最后弹窗提示
End Sub

运行时也并没有出错，也会有导入完成的提示，但是并没有汇总数据

我尝试过分布执行，我发现执行中没有跳过了循环，没有进行数据汇总

我希望能正常执行，运行后有数据汇总

在你vba代码编辑器可以debug调试，你要调试一下问题的位置代码

运行vba要现状vba控件，你mac上装了没？