The following below will only select the rows that actually have data in
them.

This means you won't have to check if there is data in other cells that you
have in your range.



Its probably not a hell of a lot of use in speeding up the large files
though.



With Worksheets(("SAP").

'The range is row 5, column 1 , ("a2")then find end of column by codes

Set rngcell = Range(.Cells(5, 1), .Cells(Rows.Count, 1).End(xlUp))

End with