Try this:

Option Explicit
 
 Sub Macro1()
Dim Row             As Long
 Dim Col             As Long
Row = Cells.Find(What:="*", LookIn:=xlValues, searchdirection:=xlPrevious, SearchOrder:=xlByRows).Row
     Col = Cells.Find(What:="*", LookIn:=xlValues, searchdirection:=xlPrevious, SearchOrder:=xlByColumns).Column
     Range("A1:" & Cells(Row, Col).Address).Copy
End Sub