Last data rng on sheet, ignoring blank cells

[TTom]

I know how to set a range A1 to last cell data row & column if there are no blank cells, but how do I find the last
cell range (row, column) if there are blank cells, rows, and/or columns, before the lowest, right most cell with data?

Only works until hits a blank cell in column A or blank cell in row 1?
<code>
Set rng1 = Range(Cells(1, 1), Cells(Range("A65000").End(xlUp).Row, Range("IV1").End(xlToLeft).Column))
</code>

 

[mikerickson]

With ActiveSheet
    Set rng1 = Range(.Range("A1"),.UsedRange)
End With

This range is the smallest range that holds cell A1 and all the data.
If F9 and E10 hold data, but F10 does not (and no other cell to the right or down), F10 will be in that range.
If the bottom right cell holds a formula that returns "", it will be in that range.

 

[jindon]

UsedRange referrs to not only data area, also any cells with changed format.
try

Sub test()
Dim LastR As Long, LastC As Long
 With ActiveSheet
    LastR = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
    LastC = .Cells.Find("*", , , , xlByColumns, xlPrevious).Column
    .Cells(1).Resize(LastR, LastC).Select
 End With
End Sub

 

[TTom]

First code works to include formated cells such as boarders but no data,
2nd code just goes to last data and ignores formatting.
Both will be useful and I'll put into my notebook, study and learn.
Thanks guys!