Copy non contiguous range

In general you can do it like this where range D19:D32 will be cleared along with cells D32, D36 and D46. Note the the dollar signs in the following are usually not necessary.

Range("$D$19:$D$32,$D$36:$D$46").Copy

Select allOpen in new window

Do you like to do it with a macro or just manually?

If you want a formula for column R, you may try this...

In R7

=IF(ISNUMBER(A7),A7,"")

Select allOpen in new window

and then copy it down and custom format the formula cells with "mm/dd/yy".

I would like to use a macro

Good answer Subodh Tiwari

Thanks Alfredo! :)