= Activesheet.usedrange.rows.count iRows
iColumns = activesheet.usedrange.Columns.count
'Si las líneas de la forma anterior o columnas pueden estar vacías, hay necesidad de obtener el menor número de filas y columnas de la derecha:
con ActiveSheet. la UsedRange
iEndRow = + .Row-.Rows.Count. 1
iEndColumn = .Columns.Count +. 1 .column-
End con
'Obtener valor de una línea celular seleccionada
A ActiveCell.Row =
B = ActiveCell.Column