Estoy tratando de crear un programa que eliminará o creará filas en función de lo que un usuario pone en una fila determinada. Por ejemplo, si el usuario pone 3, pero solo hay 2 filas, entonces insertará 1 fila. Si hubiera 5 filas, eliminaría las filas 4 y 5. Parece que debería ser un código fácil, pero estoy teniendo más dificultades para que realmente elimine / cree las filas que quiero. Mi código es el siguiente:

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