End(XlDown).Row - Problem if only 1 row

  • Thread starter Thread starter Ed Peters
  • Start date Start date
E

Ed Peters

Hi all,

I use the End(xldown).Row for splitting up a a file on import.

With ActiveSheet
LastCell8 = .Range("h1").End(xlDown).Row

.Range("m1").Copy
.Range("m2:m" & LastCell8).Select
.Paste
End With

However sometimes the import file is only 1 row and it ends up
selecting all 65,000 rows ...

Any thoughts how I can work this out bearing in mind I've already
written code using the above.

Thanks.

Ed
 
Substitute this line:

lastcell8 = .Range("h1").End(xlDown).End(xlDown).End(xlUp).Row

- David
 
Back
Top