i'm trying to copy a formula from E1 to a range of cells in column c from row
2 to the lastrow in the column. Here is my code

Sub Test
dim lastrow
application.goto reference:="r65536c1"
selection.end(xlup).select
lastrow = activecell.row

range ("E1").select
selection.copy
set myrange = range(cells(2,"c"), cells(lastrow, "c"))
myrange.paste

the macro stops at the "myrange.paste"

Jack