Great! it is Working. i really appreciate your support

With ws.Columns(5)
 lastRow = .Cells.Find("*", , xlValues, xlPart, xlByRows, xlPrevious).Row
 End With