vba Excel crear hoja controlando formato

[negu]

Un ejemplo simplificado pero que expresa claramente mi caso es este:

Do
' en cada iteración simplemente se crea una tabla

ActiveCell.Offset(i, 0).Value = "AAAA"
ActiveCell.Offset(i, 1).Value = "BBB"
ActiveCell.Offset(i, 2).Value = "CCC"
ActiveCell.Offset(i + 1, 0).Value = "---"
ActiveCell.Offset(i + 1, 1).Value = "---"
ActiveCell.Offset(i + 1, 2).Value = "---"
ActiveCell.Offset(i + 3, 0).Value = "aaa"
ActiveCell.Offset(i + 3, 1).Value = "bbb"
ActiveCell.Offset(i + 3, 2).Value = "ccc"
Range(ActiveCell.Offset(i, 0).Address, ActiveCell.Offset(i + 3, 2).Address).Borders.Value = True

i = i + 10

j = j + 1

Loop While j < N
' N ha sido introducida anteriormente por el usuario


Este código crea N tablas en una Hoja.

Mi problema es que de estas N tablas, me puede quedar alguna dividida en distintas páginas, una parte de la tabla en una página y la otra en la siguiente.

Mi pregunta es si existe alguna propiedad o método para saber, por ejemplo, en qué posición de la página estoy, cuanto me queda para pasar a la siguiente página, en qué página estoy actualmente,... información que me pueda ayudar a controlar el formato de las páginas, para arreglarlo yo mismo mediante código y que los usuarios no tengan que preocuparse de la presentación.

Muchas gracias.

Saludos