Selecting a Range of all cells from A2 to End of Data

[Muleskin57]

I'm attempting to move input data from one sheet to another, but am having trouble defining the range to cut. I know it starts at cell A2, but the range would go to the last row containing values (excluding blank cells with formulas or unselected dropdown menu choices). Any help would be greatly appreciated.

 

[GR00007]

The simple answer is to set a variable for the last row and use it in the select:

LR = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
Range("A2:A" & LR).Select

Your question implies that you also want to exclude blank cells or cells with formula - if so, then you'd have to set a filter.

 

[Fluff]

If you just want to exclude unused rows below the data, that may have formulae returning "", try

   Dim Lr As Long
   Lr = Cells.Find("*", , xlValues, , , , False, , False).Row

 

[Muleskin57]

The simple answer is to set a variable for the last row and use it in the select:

LR = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
Range("A2:A" & LR).Select

Your question implies that you also want to exclude blank cells or cells with formula - if so, then you'd have to set a filter.

Perfect! I just substituted my last column as R and it worked perfectly. Range("A2:R" & LR).Select

Much more simple that what I was getting into. Thanks a heap.

 

[GR00007]

Great - thank you for your reply.