Excel VBA删除行

我正在尝试创建一个程序，该程序将根据用户在特定行中的内容来删除或创建行.例如，如果用户输入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