TIA!!!

Is there a more efficient way to perform this copy paste? I know yo
should always avoid selecting if possible. I have tried a number o
things and had no success. Here is the snippet of code I want t
streamline:

If rngNHO Is Nothing Then GoTo skipNHO
Sheets("ALL").Select
rngNHO.Copy
Sheets("Contribs").Select
Cells(Range("A3").End(xlDown).Row + 1, "A").Select
ActiveSheet.Paste
skipNHO:

I have several snippets like this in my macro. Any help is greatl
appreciated!

--
Cel
-----------------------------------------------------------------------
Celt's Profile: http://www.excelforum.com/member.php...fo&userid=1941
View this thread: http://www.excelforum.com/showthread.php?threadid=55039