Macro

[k209310]

I have the following macro

Sub Insert()
With ActiveCell.EntireRow
.Insert
.Cells(1, 15).Copy .Cells(0, 15)
.Cells(1, 19).Copy .Cells(0, 19)
.Cells(1, 20).Copy .Cells(0, 20)
.Cells(1, 21).Copy .Cells(0, 21)
.Cells(1, 22).Copy .Cells(0, 22)
.Cells(1, 23).Copy .Cells(0, 23)
.Cells(1, 24).Copy .Cells(0, 24)
.Cells(1, 27).Copy .Cells(0, 27)
.Cells(1, 28).Copy .Cells(0, 28)
.Cells(1, 29).Copy .Cells(0, 29)
.Cells(1, 31).Copy .Cells(0, 31)
.Cells(1, 32).Copy .Cells(0, 32)
.Cells(1, 33).Copy .Cells(0, 33)
.Cells(1, 34).Copy .Cells(0, 34)
.Cells(1, 35).Copy .Cells(0, 35)
.Cells(1, 36).Copy .Cells(0, 36)
End With
End Sub

The macro allows a past function to insert a line in to a table along with any formula.

The macro works fine until.
.Cells(1, 31).Copy .Cells(0, 31)
.Cells(1, 32).Copy .Cells(0, 32)
.Cells(1, 33).Copy .Cells(0, 33)
.Cells(1, 34).Copy .Cells(0, 34)
.Cells(1, 35).Copy .Cells(0, 35)
.Cells(1, 36).Copy .Cells(0, 36)

when from cell 31 onwards no formula are pasted in to the new row.

Any ideas??

 

[rikrak]

You are sure that there a formula's to copy?
You get no errors when running the macro?

 

[k209310]

There are deffinatly formulas there. I am also pretty sure that the numbers are corect for the cells that they are referencing. all of the formulas copy until collum AK when they seem to just stop.
This message was edited by k209310 on 2002-08-29 03:14

 

[rikrak]

Because no other boarduser comes with a solution I think it's not a common problem.

I tried your macro and had no problems.

Have you tried debugging by stepping trough the macro and see what happens?

Did you run the macro on another sheet/workbook?

 

[k209310]

There is no problem with the macro. But i`ve solved the other problem and the macro still doesnt work. So it had nothin to do with that.