Find Last Row with Data

' Paste this code where ever you want to find Last Row with data in Excel
Dim I as Long

Columns("A:A").Select
Selection.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False).Activate
I = ActiveCell.ro