Autofill multiple rows

[Jcrowrab]

Please review the attached Calc.
Autofill.ods (20.6 KB)
sheet and give any advice available
Thanks in advance

[JohnSUN]

Sub AutoFill	
	GlobalScope.BasicLibraries.LoadLibrary("Tools")
	Sheets = ThisComponent.getSheets()
	oSheet = Sheets.getByName("sheet3")
	oRange = oSheet.getCellRangeByName("b2:d" & (getLastUsedRow(oSheet)+1) )
	oRange.fillAuto(com.sun.star.sheet.FillDirection.TO_BOTTOM,2)
End Sub