Перевести Макрос Excel в Google Spreadsheet

Нужно сделать формулу или макрос в Excel 
Есть 2 странички 
Лист 1 
А- список сайтов 
B- значение 
Лист 2 
А- сокращенный список сайтов, содержащихся в листе 1 
B- Итого ссылок на сайт в Листе 1 
С- Итого сумма значений "Один" на данный сайт в Листе 1 
D- Итого сумма значений "Два" на данный сайт в Листе 1 

Нужно чтобы в Листе 2 было следующее 
-Поиск сокращенного названия сайта с Листа 2 Столб А в Листе 2 Столб А и их подсчёт в Столбе 2 
- Поиск значений "Один" у соответствующего сайта в Листе 1 и их сумма в Столбе С 
-Поиск значений "Два" у соответствующего сайта в Листе 1 и их сумма в Столбе D


Сам макрос
Sub Макрос1()
    Dim s(10000) As String, n(10000, 2) As Integer, i As Long, j As Long
    For i = 2 To 10000 'записываем в массив домены
        s(i) = Worksheets("Лист2").Cells(i, 1)
        If s(i) = "" Then Exit For
    Next i
    im = i – 1
    For j = 1 To 1040000 'подсчитываем ссылки на домены
        s0 = Worksheets("Лист1").Cells(j, 1)
        If s0 = "" Then Exit For
        For i = 2 To im
            If InStr(s0, s(i)) > 0 Then
                If Worksheets("Лист1").Cells(j, 2) = "Один" Then n(i, 1) = n(i, 1) + 1
                If Worksheets("Лист1").Cells(j, 2) = "Два" Then n(i, 2) = n(i, 2) + 1
                Exit For
            End If
        Next i
    Next j
    For i = 2 To im 'выводим подсчитанные суммы на лист2
        Worksheets("Лист2").Cells(i, 2) = n(i, 1) + n(i, 2)
        Worksheets("Лист2").Cells(i, 3) = n(i, 1)
        Worksheets("Лист2").Cells(i, 4) = n(i, 2)
    Next i
End Sub