dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1( 0 ) as new com.sun.star.beans.PropertyValue
args1( 0 ).Name = "ToPoint"
args1( 0 ).Value = "$A$10"

dispatcher.executeDispatch(document, ".uno:GoToCell", "",  0 , args1())

dim args2( 0 ) as new com.sun.star.beans.PropertyValue
args2( 0 ).Name = "StringName"
args2( 0 ).Value = "[TASN0002]"

dispatcher.executeDispatch(document, ".uno:EnterString", "",  0 , args2())

Dim Doc As Object
Dim Sheet As Object
Dim Cell As Object   
dim k as string ' 
 dim l,l1 as integer
'--------------------------------check
Dim c1,c2,c3,c4, c5, c6, form as string 'cell
Dim b1,b2,b3,b4,b5,b6, i, n as Integer
Doc = ThisComponent
Sheet = Doc.Sheets( 0 )
c1= "B6" ' начальная ячейка
c2= "B21" 'конечная ячейка
n= 1  ' 
c6 = "a" 'шаблон


b1 = len(c1)'
b2= len (c2)' 
c3= left(c1, 1 )'
c4 = left (c2, 1 ) '


'--------------------------------------------------------------расчёт переменных
b4= val(mid(c1, 2 ))' начальная строка массива - число начало
b5= val(mid(c2, 2 ))' последняя строка массива - число завершение



b6= b4 ' 

for i=b6 to b5  
c5 = c3 + trim(str(i)) 'формирование символьного значения ячейки
Cell = Sheet.getCellRangeByName(c5)

k=cell.string
 l=instr(k,c6)
 if (l= 1 ) then 
 l1= val(mid(k,len(c6)+ 1 )) ' выделение числа в строке 
 l1 = l1 + n ' прибавляем столько тестов сколько добавили
 form=c6 + trim(str(l1))
 Cell.String = form
 end if  
Next i 
 msgbox "Done"