By using the following I get the row and column number of the "last" cell with contents:'
lastrow = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Row
lastcolumn = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns...