Para obtener la fila y la columna actual de la hoja de cálculo bastará con el siguiente código en tu macro:

Dim Fila as Long, Columna as Long
Dim Selection as Object
Selection = ThisComponent.CurrentSelection(0)
If Selection.SupportsService("com.sun.star.sheet.SheetCell") Then
    Fila = Selection.CellAddress.Row
    Columna = Selection.CellAddress.Column
Else
    MsgBox "Selecciona una celda"
End If