Run time error 1004 when adding rows

Hi,

I have the following code, called from a Userform:

Dim r As Integer
    r = ActiveCell.Row
    ActiveCell.EntireRow.Insert
    Sheet5.Cells(r, 1).EntireRow.Insert

Sheet1 that I run it on goes to column IR leaving 4 blank columns. Sheet5 runs to IQ leaving 5 blank columns. I only have about 100 runs of data.

Any ideas would be greatly appreciated.