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