Remove Additional unwanted Rows

Good Morning all.

I have a problem solving what I am sure is easy once you know the syntax but still being relatively new to VBA I don't. I am trying remove additional rows after a selection has been coped from one worksheet to another I have used the following code to do the copying and pasting and this works fine, now what I am trying to do is once the below code has run and is completed any addition empty rows at the bottom of the copied data will be removed. I have tried adding the line
Range(Selection, Selection.End(xlDown).Row + 1, 1).Select but get a compile error: Wrong number of arguments or invalid property assignment.

Any help/advice would be appreciated.

Thanks
Sandy

Please Login or Register  to view this content.

File Attached as requested




ITO Registration Register Rev 1.xlsm

Hello Parth007, when I copy January to Annual Completed the code opens January Sheet, then using the filter on Column CN filter for non-blank cells, It then copies what is displayed over to the Annual Completed Sheet and pasted it in place. the problem is that every time I do that empty rows are also copied across and what I am trying to achieve that once copied to Annual Completed all blank rows below the last entry should be removed.

I hope this makes sense

Thanks
Sandy