Trouble using Create object("scripting.dictionary") with mac

What can I use, instead of this script ? ... It's a Macros created in excel for windows and I did open it with a mac.

Sub idequifax()

Debug.Print "Start Dict"
Dim Dict As Object
'Crear
Set Dict = CreateObject("Scripting.Dictionary")

fila = 2
Do While Worksheets(2).Cells(fila, 1).Value <> ""
If Dict.Exists(Worksheets(2).Cells(fila, 1).Value) Then
Dict(Worksheets(2).Cells(fila, 1).Value) = Dict(Worksheets(2).Cells(fila, 24).Value)
Else
Dict.Add Key:=Worksheets(2).Cells(fila, 1).Value, Item:=Worksheets(2).Cells(fila, 24)
End If
fila = fila + 1
Loop

Debug.Print "End Dict"

Final = 2
Do While Worksheets(1).Cells(Final, 1).Value <> ""
Worksheets(1).Cells(Final, 24).Value = Dict(Worksheets(1).Cells(Final, 1).Value)
Final = Final + 1
Loop


End Sub


Many thanks !