Existe uma infinidade de maneiras para fazer isso. Eu prefiro descobrir com quantas linhas eu estou trabalhando (ou seja, onde os dados terminam) e, em seguida, configurar meus intervalos com base nesses números. A determinação da última linha ou coluna também pode ser feita de várias maneiras, conforme evidenciado por vários sites, incluindo aqui e aqui . O jeito que eu faço é
lngLastRow = Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row
lngLastCol = Cells.Find("*", searchorder:=xlByColumns, searchdirection:=xlPrevious).Column
Depois de saber a última linha / coluna, você pode subtrair quantas linhas forem necessárias, etc.