How do I fix the "Application-defined or Object-defined error" at the
"Activecell.Formula =" line?


nrow = Sheets("Data Entry").Range("A8").Value
Z = 11
mycell = "B" & Z
Range("A1").Select
Range("A1:J10").Copy
For I = 1 To nrow
ActiveCell.Offset(10, 0).Select
ActiveSheet.Paste
Next I
Range("c15").Select
For I = 1 To nrow
ActiveCell.Formula = "=+'Data Entry'![" & mycell & "]"
Z = Z + 1
mycell = "B" & Z
ActiveCell.Offset(10, 0).Select
Next I