Ich versuche, ein Programm zu erstellen, das Zeilen basierend auf den Angaben eines Benutzers in einer bestimmten Zeile löscht oder erstellt. Wenn der Benutzer beispielsweise 3 eingibt, aber nur 2 Zeilen vorhanden sind, wird 1 Zeile eingefügt. Wenn es 5 Zeilen gäbe, würden die Zeilen 4 und 5 gelöscht. Es scheint ein einfacher Code zu sein, aber es fällt mir am schwersten, tatsächlich die gewünschten Zeilen zu löschen / zu erstellen. Mein Code lautet wie folgt:

Sheets("Summary").Select

x = Cells(29, 3).Value
i = 7

Sheets("Weighted I").Select

Do Until Cells(i, 1).Value = "TOTAL"
    i = i + 1
Loop

i = i - 7
If i > x Then   
    dlt = i - x + 7

    For cnt = 7 To dlt
        Rows(cnt).EntireRow.Delete
        cnt = cnt + 1
    Next    
ElseIf i < x Then
    crt = x - i + 7

    For cnt = 7 To dlt
        Rows(cnt).EntireRow.Insert
        cnt = cnt + 1
    Next
End If