RandomFunctionValuesListGenerator.bas

REM  *****  BASIC  *****

Option Explicit

Sub Main

	Dim oDocument
	Dim oSelectedCells
	Dim oActiveCells
	Dim oSheet
	Dim oTargetCell
	Dim nRow
	Dim nCol
	Dim dValue
	
	oDocument = ThisComponent
	oSelectedCells = oDocument.CurrentSelection
	oActiveCells = oSelectedCells.RangeAddress
	oSheet = oDocument.Sheets.getByIndex(oActiveCells.Sheet) ' active table
	oTargetCell =  oSheet.getCellByPosition(oActiveCells.StartColumn,oActiveCells.StartRow)
	
	' excluding first row which contains target cell
	For nRow = oActiveCells.StartRow + 1 To oActiveCells.EndRow
		For nCol = oActiveCells.StartColumn To oActiveCells.EndColumn
			dValue = oTargetCell.getValue()
			oSheet.getCellByPosition(nCol,nRow).setValue(dValue)
			oDocument.calculate()
		Next
	Next
End Sub