Macros на Mac, не читает даже Windows("total.xlsx").Activate - VBA

Формулировка задачи:

Добрый день, уважаемые знатоки! просьба помочь с макросом на Маке: на винде записал макрос, тут надо его на маке было запустить но 1ая строка макроса и не читается, пишет что "Подстрочные знаки ошибка" сама команда Windows("total.xlsx").Activate есть в VBA Mac, т.к. если удалить Activate и нажать ".", то появляется список в котором есть Activate пытался добавлять путь "Users/ttt/total.xlsx" к примеру - тоже не работает нажимал запись макроса и переключался между файлами - это действие не отображалось в коде записанного макроса собственно, сам макрос простой: переключается между окнами, копирует таблицы через Ctrl+Shift+вправо+вниз и вставляет на строку 900000 и далее удаляет пустые строки, чтобы склеить таблицы - в цикле for i не знаю как его запустить на Маке

Sub total_1()
'
 total_1
'
 
'
    Windows("total.xlsx").Activate
    
    ActiveCell.FormulaR1C1 = "1"
    Range("A1").Select
    Selection.Copy
    Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.Paste
    Range("B2").Select
    Application.CutCopyMode = False
    Selection.Copy
 
    For i = 1 To 36
    
            Windows(" i & ".xlsx").Activate

    Range("b2").Select
    Selection.Copy
 '   Range(Selection, Selection.End(xlDown)).Select
    Windows("total.xlsx").Activate
    Range("B900000").Select
    ActiveSheet.Paste
            Windows(" i & ".xlsx").Activate
    Range("A6").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("total.xlsx").Activate
    Range("C900000").Select
    ActiveSheet.Paste
    Range("B900000").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("C900000").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range("B1000000").Select
    Range(Selection, Selection.End(xlUp)).Select
    Range("B900001:B1000000").Select
    Range("B1000000").Activate
    ActiveSheet.Paste
    Range("B900000").Select
    Range(Selection, Selection.End(xlUp)).Select
    Range("A900005").Select
    Range(Selection, Selection.End(xlUp)).Select
    Range("B1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range("C900000").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("C899999").Select
    Range(Selection, Selection.End(xlUp)).Select
    Range("C1").Select
    ActiveSheet.Paste
    Range("B1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "store"
    Rows("2:2").Select
    ActiveWindow.FreezePanes = True
    Rows("1:1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A:$S").AutoFilter Field:=3, Criteria1:="="
    Rows("2:2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    Range("B1296").Select
    ActiveSheet.ShowAllData

    Range("A1").Select
    Selection.Copy
    'Range(Selection, Selection.End(xlDown)).Select
    'Range(Selection, Selection.End(xlDown)).Select
    
    Range("A1:A1048576").Select
    ActiveSheet.Paste
    Range("B3").Select
    
            Windows(" i & ".xlsx").Activate
    ActiveWindow.Close

        Next i

End Sub

Решение задачи: «Macros на Mac, не читает даже Windows("total.xlsx").Activate»

textual
                            Листинг программы 
                        
                            Windows(i & ".xlsx").Activate