Я пытаюсь создать программу, которая будет удалять или создавать строки на основе того, что пользователь помещает в определенную строку. Например, если пользователь вводит 3, но есть только 2 строки, он вставит 1 строку. Если бы было 5 строк, это удалило бы строки 4 и 5. Кажется, что это должен быть простой код, но у меня самое сложное время, когда он действительно удаляет / создает строки, которые я хочу. Мой код выглядит следующим образом:

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