Sub Test()
  ' jakie arkusza
  a1 = thisComponent.Sheets.­getByIndex(0)
  a2 = thisComponent.Sheets.­getByIndex(1)
  ' ile komórek
  n = a1.getCellByPosition(­0,0).getValue
  'wstaw komórki
  Dim r As New com.sun.star.table.Ce­llRangeAddress
  r.Sheet = 1
  r.StartColumn = 0
  r.StartRow = 0
  r.EndColumn = 0
  r.EndRow = n-1
  a2.insertCells(r, com.sun.star.sheet.Ce­llInsertMode.DOWN)
­  ' nadaj wartości nowym komórkom
  for i = 1 to n
    a2.getCellByPosition(­0,i).setValue(123.45­)
  next i
End Sub