Restituisce un intervallo da A1 alla cella dell’ultima cella vera

Mi piacerebbe selezionare tutte le righe e le colonne in un foglio di calcolo. La macro deve essere dynamic, poiché il numero di colonne e righe tende a variare ogni volta che viene chiamata la macro. Deve anche essere in grado di tenere conto di righe e colonne vuote.

Questa subroutine esegue parte del processo:

Sub FindLastCell() Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious).Select End Sub 

Trova e seleziona l’ultima cella di un foglio di calcolo. Ora che ho trovato l’ultima cella del foglio di calcolo, come faccio a selezionare la cella A1 su LastCell come intervallo?