More efficient copy/paste??

[Celt]

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!

 

[Ardus Petus]

If Not rngNHO Is Nothing Then
rngNHO.Copy _
Destination:=Worksheets("Contribs") _
.Range("A3").End(xlDown).Offset(1, 0)
End If

HTH

 

[Die_Another_Day]

Set rngNHO = Sheets("All").Range("A1")
Cells(Range("A3").End(xlDown).Row + 1, "A").Select
rngNHO.Copy ActiveCell

This assumes that you are on the Sheet that you want to paste the data
into.

HTH

Die_Another_Day

 

[Celt]

Thanks guys!

Quick question Ardus...

With your code, if rngNHO is nothing...will that cause an error

 

[Die_Another_Day]

if you don't set the rngNHO to some range then it is empty...

Die_Another_Day

 

[Ardus Petus]

No: it will do nothing.

 

[Die_Another_Day]

for Ardus' code it should not because of the if not rngNHO = Nothing

HTH

Die_Another_Day