Ich versuche, eine ganze Zeile anhand der Indexnummer zu kopieren und in eine andere Zeile mit einer anderen Indexnummer einzufügen, wenn eine bestimmte Bedingung erfüllt ist (ich weiß, dass das Problem nicht mit der bedingten Logik zusammenhängt). Ich denke an so etwas:

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

Die Logik funktioniert wie vorgesehen, es werden jedoch keine Zeilen eingefügt. Ich bin Schritt für Schritt gegangen und bin mir sicher, dass das Problem nicht mit der Logik zusammenhängt.