Making Copy and Paste with .end offset more efficient

Hello again everyone. I am hoping there is a simple solution to this. I want to convert this code to a single line if at all possible. I have several variations on this in the same macro (different sources and destinations) I am wondering how I would be able to combine these lines to something similar to the copy statement followed by the destination on the same line.

This is the code I am trying to combine as I said I have several blocks like this. It works fine but I am trying to reduce lines.

Please Login or Register  to view this content.

Thanks again.

Try:

Please Login or Register  to view this content.

That is right along the lines of what I was coming up with> Looks like I had the syntax wrong on the first two occurrences of Range. Thank you

Paul, Excellent point. I checked it out and the Rows.Count reference seems to work fine without the preface even with filters that are being turned on before this. I did end up going with the With/ End with statement for its readability. Thank you.