Incorrect result from execution of InsertRow with INSERT_AFTER

[AnatolBazyukin]

SET DEFAULT TO D:\Test_err
#INCLUDE "vfpxworkbookxlsx.h"
LOCAL lcFile, lnWb, lcOutPath
lcFile = GETFILE("xlsx", "Workbook", "Load", 0, "Select Workbook to load into Class")
IF !EMPTY(lcFile)
lcOutPath = ADDBS(JUSTPATH(lcFile))
goExcel = NEWOBJECT("VFPxWorkbookXLSX", "VFPxWorkbookXLSX.vcx", "", 1251) && Set codepage 1250
lnWb = goExcel.OpenXlsxWorkbook(lcFile)
goExcel.InsertRow(lnWB, 1, 3, INSERT_AFTER, 3)
goExcel.InsertRow(lnWB, 1, 1, INSERT_BEFORE,2)
goExcel.SaveWorkbookAs(lnWb, lcOutPath + JUSTSTEM(lcFile) + "_2.xlsx")
ENDIF

After executing the operator goExcel.InsertRow(lnWB, 1, 3, INSERT_AFTER, 3), rows 4 and 5 are deleted.

test.xlsx
TEST_2.xlsx

[AnatolBazyukin]

The following code addition is suggested, inserted between
OTHERWISE
RETURN False
ENDCASE
and
- Update the row references for merged cells.
Code to add:
local ln_select
ln_select = select()
select xl_cells
scan for row >= tnRow + tnRowCnt
this.SetRowMaxColumn(tnWB, tnSh, xl_cells.row, xl_cells.col)
endscan
select (ln_select)