Скопируйте и вставьте строку по номеру индекса в макросе Excel

Я пытаюсь скопировать всю строку по номеру индекса и вставить его в другую строку с другим номером индекса, когда выполняется определенное условие (я знаю, что проблема не в условной логике). Я думаю о чем-то вроде этого:

Sub Makro1()

Dim i As Integer

With ActiveSheet
    'for looping
    totalRows = .Cells(.Rows.Count, "A").End(xlUp).Row

    'index of last row even after rows have been added
    lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

    'data starts at row #3
    For i = 3 To totalRows
        If .Cells(i, 19).Value > 0 Then
            Number = .Cells(i, 19).Value
            Do While Number > 0
                lastRow = lasRow + 1
                'Next line doesnt do anything
                .Rows(lastRow) = .Rows(i).Value
                Number = Number - 1
            Loop
        End If
    Next i
End With
End Sub

Логика работает как положено, но никакие строки не вставляются. Я пошел шаг за шагом и уверен, что проблема не в логике.

Ответы на вопрос(3)

Ваш ответ на вопрос