lastrow of 3 columns

Would This Do It.

Sub lastRow()
Dim c As Object

    With Sheets("Sheet1").Range("A:C")
     Set c = .Find(What:="*", LookIn:=xlValues, Lookat:=xlPart, searchorder:=xlByRows, searchdirection:=xlPrevious)
    End With


End Sub