selecting a range to copy paste from one sheet to another

[bill151515]

how do you select the range of the last row with data in it and the last column with a cell of data in it. i want to avoid using cells.select data in and just select the area that has data instead of the whole sheet

 

[Tom Urtis]

Assuming your data starts in cell A1 - -

Sub Test1()
Dim LR&, LC%
LR = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).row
LC = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
Range(Cells(1, 1), Cells(LR, LC)).Select
End Sub