Estou tentando copiar uma linha inteira pelo número do índice e colá-lo em outra linha com um número de índice diferente quando uma determinada condição é atendida (sei que o problema não está na lógica condicional). Estou pensando em algo assim:

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

A lógica funciona como deveria, mas nenhuma linha é colada. Eu fui passo a passo e estou certo de que o problema não está na lógica.