Última coluna preenchida - Basic Calc

Usando Basic, preciso saber qual é a última coluna preenchida com dados em uma linha.

Por exemplo na linha A1 da planhilha preciso saber qual é a última coluna com texto. Como fazer isso

Considerando não haver colunas em branco.

Com a célula A1 ativada, acione a macro

Option VbaSupport 1
Sub Main
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "By"
args1(0).Value = 1
args1(1).Name = "Sel"
args1(1).Value = false
CreateUnoService("com.sun.star.frame.DispatchHelper") _
.executeDispatch(ThisComponent.CurrentController _
.Frame, ".uno:GoRightToEndOfData", "", 0, args1())

msgbox ActiveCell.Address
msgbox ActiveCell.Column
msgbox ActiveCell.Row

End Sub