Getting run time error while copy / paste range

Experts,

What I am doing here is looping thru the cell in column C in line 35 and copying the value of the activity and pasting it in M9, and then I loop another and paste in the same cell using the "& Chr(10) &".
This will basically do like this "A" & Chr(10) & "B" and will be shown one entry below other in the same cell - M9.

This is basically a reminder program which will collect all unfinished tasks and collect in ONLY one cell - M9.
The macro will execute on workbook_open event.

The file is as attached.

What is the purpse of this line

range(CloumnNameActivity,0).Copy?

If you want to copy the entire column C.
use this line

Columns(CloumnNameActivity).Copy

or

Range("C:C").Copy

hello Ab33,
I am just trying to copy the value which is given by
Range(CloumnNameDate + RowNrString)

on line 33, since that cell is the current selection and I was just trying diferent permutations to make the code work.
Actually I meant Range((CloumnNameActivity).select.copy

I managed to get the code working.
Now I want only one thing..
I want to paste all the values copied into One single cell: M9.

PFA the file

Your code has lots of selection and it will be prone to errors. Unless you are recording your actions, you should avoid using selection.
In which line says you want to copy to M9?

For example you could write these lines as

Please Login or Register  to view this content.

But which range do you want to copy?