Thank You for the Improved code. Greately Appriciated. It works perfectly now.
(The reson why mine did not work is because after creating the rows the
sheet protected itself again so I had to unprotect it again before merging)

To answare your question about merge cells; Yes the worksheet has other
merge cells BUT the ones I am merging are not merged so It works.

Thank You guys.

"Jim Thomlinson" wrote:

That exact code works for me. It can be tightened up as follows but there is
nothing wrong with it...

Sub AddExtraRows()

With ActiveSheet
.Unprotect Password:="eli"
.Rows("32:80").Insert Shift:=xlDown

For i = 32 To 103
.Range(.Cells(i, 3), .Cells(i, 6)).Merge
.Range(.Cells(i, 7), .Cells(i, 12)).Merge
.Range(.Cells(i, 13), .Cells(i, 15)).Merge
Next i

.Protect Password:="eli"
.EnableSelection = xlUnlockedCells
End With
End Sub

One question I would have since you are merging cells do you have existing
merged cells prior to running the code? Macros and merged cells don't get
along...
--
HTH...

Jim Thomlinson


"Damian" wrote:

I am trying to add extra rows and the merge certatin columns together, but I
am getting a

Run-Time error '1004'
Application-defined or object-defined error

How come?

Here is the code:
Sub AddExtraRows()

ActiveSheet.Unprotect Password:="eli"
Rows("32:80").Insert Shift:=xlDown

For i = 32 To 103
Range(Cells(i, 3), Cells(i, 6)).Merge
Next i

For j = 32 To 103
Range(Cells(j, 7), Cells(j, 12)).Merge
Next j

For k = 32 To 103
Range(Cells(k, 13), Cells(k, 15)).Merge
Next k

With ActiveSheet
.Protect Password:="eli"
.EnableSelection = xlUnlockedCells
End With
End Sub