Macro stops running

[Misca]

I've got a simple macro that makes copies of the original table 10 rows below the last table. Once it has copied the table it takes a same sized formula table and copies it next to the new table. Or so it should but the macro stops running right after copying the first table and I can't figure out why.

Here's my code:

Sub CopyTable()
 
Dim Rng As Range
Dim c As Range
 
With Sheet1

'Original table:
    Set Rng = .Range("A68:AC126")
 
'Destination= 10 rows below the last table
    Set c = .Cells(.Rows.Count, 1).End(xlUp).Offset(10)
        
'Copies the original table:
                With Rng
                    .Copy Destination:=c    '.Resize(.Rows.Count, .Columns.Count)
                End With
      
'Copies the formula table:
                With Rng.Offset(0, 35)
                    .Copy Destination:=c.Offset(0, 35)
                End With

End With
 
End Sub

I'm using Excel 2003 and so far there's only two tables on the page so there should be plenty of rows left to pile up the tables.

 

[Mohammad Basem]

There is no loop to tell how many times the table shall be copied.

 

[Misca]

The macro is supposed to run only once at a time and the user is supposed to fire the macro whenever he needs another table.

The problem is the macro stops halfway through but I can't figure out why it does that.

 

[Mohammad Basem]

I have added a commandbutton to run the macro, and copied up to 29 tables with no problem.

The code works just fine. I am using Excel 2007, but don't think this is the reason.

It won't harm double checking the code in your post is the same as the one in the workbook.