Here is my problem:

I basically want to be able to put a curser on a cell (lets say C12)
and have it copy that row and the four rows below it and then paste
that data into another setion (lets say C4 on the same page). And
also be able to do this over and over when I go down my list of
companies. Would anyone know the coding to create this macro?

Sub MyMacro()
activecell.Resize(5).Entirerow.copy Range("C4")
End Sub

or if not the "row" as stated
Sub MyMacro()
Activecell.resize(5,10).copy Range("C4")
End Sub



--
Regards,
Tom Ogilvy



" wrote:

Here is my problem:

I basically want to be able to put a curser on a cell (lets say C12)
and have it copy that row and the four rows below it and then paste
that data into another setion (lets say C4 on the same page). And
also be able to do this over and over when I go down my list of
companies. Would anyone know the coding to create this macro?