VBA / Macro - Troubles with Copy & Paste right font

Dear all,

Recently I've started working with VBA & Macros and although I've come a long way (humbly said), I've stumbled upon a problem. Right now, I am able to copy&paste the right cells in the right place (clicking a button means adding (pasting) a range of copied cells below the last filled cell range) and now I am also able to delete the cells. The last thing I need is a font change, only for the pasted cells.
With my current knowledge, I've been able to correctly adjust the font only of the first set of pasted cells. So, in other words, my font change code is static where I need it to be changing with range, dynamic. This means that every part of cells pasted below gets the same font.

This is my code:

Please Login or Register  to view this content.

I guess that right at the lines I've made bold, I need to insert this 'dynamic code', the sort of code used in the underlined/italic lines.
Lots of thanks in advance, any help is welcome!

Cheers

Hi xladept,

Thanks for the reply, appropriate rectification. Still works when using the 'If Not IsEmpty("C15:C20")' statement though.
So I guess this that is not really the problem, any other suggestions?