Select 2nd row of data and below

[David04Ruiz]

Hi all, I am using the following code to select the 2nd row of data (the top row is just column titles) and everything under it:

Rows("2:2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy

This code works 99% of the time, however, in cases when there is only one row of data (row 2), it selects row 2 and then highlights the entire sheet because there is no "end" to the data. Is there a way I can avoid this where it selects row 2 and below and/or just row 2 if row 2 happens to be the only data available that day?

 

[Peter_SSs]

Generally there is no need to select cells/ranges to work with them and selecting can slow your code considerably.
See if this is any use.

Range("A2", Cells.Find(What:="*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious)).EntireRow.Copy

 

[David04Ruiz]

Generally there is no need to select cells/ranges to work with them and selecting can slow your code considerably.
See if this is any use.

Range("A2", Cells.Find(What:="*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious)).EntireRow.Copy

Works perfectly thank you!!

 

[Peter_SSs]

You're welcome. Thanks for the follow-up.