Read row and column values of

= activesheet.usedrange.rows.count iRows
iColumns = activesheet.usedrange.Columns.count

'If the previous form lines or columns may be empty, need to get the lowest number of rows and rightmost columns:
with ActiveSheet. the UsedRange
iEndRow = + .Row-.Rows.Count. 1
iEndColumn = .Columns.Count +. 1 .column-
End with

'Get value of a selected cell line
A ActiveCell.Row =
B = ActiveCell.Column