I just want to copy and insert rows

[ouadad]

The following code has worked before, but now it doesn't and I can't figure out why. I just determine the value in the activecell and if it's more than one I just copy the row and insert it below the selected row, but for some reason I get a runtime error 1004 and the insert method fails. I also note that the "i" in insert is not capitalized. Can anyone assist me?

Sub Deaggregate_returns()
' change multiple returns of same product to single returns
Dim qty As Integer, irow As Long, MyCell, step As Integer
Set MyCell = ActiveCell
While ActiveCell.Value <> ""
    qty = ActiveCell.Value
        For step = 1 To qty - 1
            Rows(ActiveCell.Row).Select
            Selection.Copy
            Selection.insert Shift:=xlDown
        Next step
        MyCell.Offset(1, 0).Select
        Set MyCell = ActiveCell
Wend
End Sub

 

[Richard U]

It is possible that your code module has become corrupted.

Try the following.


Copy all of the code in your module into notepad
Right click on the module
Select Remove <module name> from the dropdown
Right click on the project name
select insert => Module
Copy your code back into the new module

 

[ouadad]

It is possible that your code module has become corrupted.

Try the following.


Copy all of the code in your module into notepad
Right click on the module
Select Remove <module name> from the dropdown
Right click on the project name
select insert => Module
Copy your code back into the new module

No, that didn't solve the problem. ... But restarting my computer did. Go figure.