Нужно скопировать строки и создать индивидуальную запись для каждого отдельного количества

Question

Нужно скопировать строки и создать индивидуальную запись для каждого отдельного количества и изменить количество на 1 для каждой строки в листах Google.Это то, что я сделал в VBA для Excel, пытаясь сделать то же самое в листах Google (мои данные о количестве столбца g-7).

спасибо

Sub QuantityRecord()
    Dim dat As Variant
    Dim i As Long
    Dim rw As Range
    Dim rng As Range

    Set rng = ActiveSheet.UsedRange
    dat = rng

    ' Loop thru your data, starting at the last row
    For i = UBound(dat, 1) To 2 Step -1
        ' If Quantity > 1
        If dat(i, 7) > 1 Then
            ' Insert rows to make space
            Set rw = rng.Rows(i).EntireRow
            rw.Offset(1, 0).Resize(dat(i, 7) - 1).Insert
            ' copy row data down
            rw.Copy rw.Offset(1, 0).Resize(dat(i, 7) - 1)
            ' set Quantity to 1
            rw.Cells(1, 7).Resize(dat(i, 7), 1) = 1
        End If
    Next
End Sub