Toto pouzivam na zistenie rozsahu tabulky

' Zisti rozsah tabulky(A1,xy)
Range("A1").Select
On Error Resume Next
myLastRow = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
mylastcolumn = Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column
myLastCell = Cells(myLastRow, mylastcolumn).Address
myrange = "a1:" & myLastCell


Zaujimave stranky k excelu:
http://www.dataspectrum.cz/pages/glossary/glossary .htm
http://www.angelfire.com/biz7/julian_s/julian/juli ans_macros.htm
http://www.dataspectrum.cz/pages/learning/learning main.htm