= Activesheet.usedrange.rows.count iRows
iColumns = activesheet.usedrange.Columns.count
'Se as linhas de forma anterior ou colunas pode estar vazio, necessidade de obter o menor número de linhas e colunas mais à direita:
com ActiveSheet. UsedRange
iEndRow = + .Row-.Rows.Count. 1
iEndColumn = .Columns.Count +. 1 .column-
Fim com
'Obter valor de uma linha celular seleccionada
Um ActiveCell.Row =
B = ActiveCell.Column