Estoy tratando de copiar una fila completa por número de índice y pegarla en otra fila con un número de índice diferente cuando se cumple una determinada condición (sé que el problema no es con la lógica condicional). Estoy pensando en algo como esto:

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

La lógica funciona como se supone, pero no se pegan líneas. He ido paso a paso y estoy seguro de que el problema no está en la lógica.