Find Last Used Row on Worksheet

[EssoExplJoe]

I am using the below code to find the last row that contains data on a worksheet. I have 50 rows that contain data on worksheet (ws) and when I run my macro using the below function to find the last used row, it returns 50 as it should. However, if I manually delete the data from the last 25 rows on the worksheet, the code still returns 50. How I get it to reset and return 25.. Note that there is a range variable set in the macro to include the number of used rows which is supposed to be reset each time the macro is run to the number of current used rows.

Function FindLastRow(ws as worksheet) as long
FindLastRow= ws.UsedRange.Rows(sht.UsedRange.Rows.Count).Row
End Sub

 

[eduzs]

If column "A" is always <> "" for a non blank row:
FindLastRow= ws..Cells(ws.Rows.Count, 1).End(xlUp).Row

 

[EssoExplJoe]

If column "A" is always <> "" for a non blank row:
FindLastRow= ws..Cells(ws.Rows.Count, 1).End(xlUp).Row

Some columns may or may not have blanks. I cannot rely on a column to have data in it.

 

[Michael M]

How about

Sub MM1()
Dim lr as long
lr = Cells.Find("*", , xlValues, , xlRows, xlPrevious).Row
End Sub

 

[EssoExplJoe]

How about

Sub MM1()
Dim lr as long
lr = Cells.Find("*", , xlValues, , xlRows, xlPrevious).Row
End Sub

Works great for rows. I also tried the below code to find the last used column but it doesn't seem to work very well.

Sub MM1()
Dim lc as long
lc = Cells.Find("*", , xlValues, , xlcolumns, xlPrevious).Column
End Sub

 

[MARK858]

but it doesn't seem to work very well.

Can you expand on your issue please as the above doesn't tell us much.

 

[Michael M]

Try using

Sub MM1()
dim Lc as integer
Lc = Cells.Find("*", , xlValues, , xlByColumns, xlPrevious).Column
End Sub