Как програмно узнать сколько строк и столбцов в листе Экселя - VBA

Формулировка задачи:

Добрый вечер. В общем такая задача. Как програмно узнать сколько строк и столбцов в листе еxcel. Допустим программа заполняет ячейки случайными цифрами.

                    Листинг программы
                
 
                        
                          
                    
M=9999999999999999999999999999999999999
stroka=0
stolbec=1
for i=1 to M
stroka=stroka+1
cells(stroka, stolbec)=i
if stroka=65536 then 
stroka=0
stolbec+1
End if
Next i

Программа работает. но дело в том, что в excel 2003 кол-во строк 65536. А в поздних версиях(2007,2010, 2013) больше. В общем нужно заменить

                    Листинг программы
                
 if stroka=65536 then

на более нормальный код. Чтоб и на других версиях excel работал нормально. и еще если программа заполнил все ячейки листа то создал и перешел на другой лист.

Решение задачи: «Как програмно узнать сколько строк и столбцов в листе Экселя»

textual
                            Листинг программы 
                        
msgbox rows.count
msgbox columns.count