Print a value in one cell and donot repeat

Hello geeks

The following code is supposed to print Resource number in cell ‘A’+MyP (Value of MyP is 3) and then the count myJ times and add to the ‘A’ and then print another value in the that cell

CurrReport.PAGENO := 1;
FirstGroupTotal := TRUE;

Resource.SETRANGE(Resource.“No.”);
IF “Res. Ledger Entry”.FIND(’-’) THEN
REPEAT
Sheets.Range(‘A’+MyP).Value :=FORMAT(Resource.“No.”);
Sheets.Range(‘B’+MyP).Value :=FORMAT(Resource.Name);
MyP:= myJ;
UNTIL “Res. Ledger Entry”.NEXT =0;

IF exp THEN BEGIN
“Res. Ledger Entry”.SETFILTER(“Res. Ledger Entry”.Quantity,’>0’);
//Resc.SETRANGE(Name,Customer.Name,Resc.Name);

Sheets.Range(‘A’+myJ).Value:=FORMAT(“Res. Ledger Entry”.“Resource No.”);
Sheets.Range(‘B’+myJ).Value:=FORMAT(CustName);
Sheets.Range(‘C’+myJ).Value:=FORMAT(“Res. Ledger Entry”.Description);
Sheets.Range(‘E’+myJ).Value:=FORMAT(“Res. Ledger Entry”.“Unit of Measure Code”);
Sheets.Range(‘F’+myJ).Value:=FORMAT(“Res. Ledger Entry”.Quantity);
Sheets.Range(‘G’+myJ).Value:=FORMAT(“Contract No”);
myJ:=INCSTR(myJ);

END;

;

Sorry, i tried to understand but i cant , could you be clear regarding the question

If you just want to print first resource no name & all records regarding to that resource No

then just take that all stuff inside repeat until like

Resource.SETRANGE(Resource.“No.”);
IF “Res. Ledger Entry”.FIND(’-’) THEN
REPEAT
Sheets.Range(‘A’+MyP).Value :=FORMAT(Resource.“No.”);
Sheets.Range(‘B’+MyP).Value :=FORMAT(Resource.Name);
MyP:= myJ;

myJ:=INCSTR(myJ);

“Res. Ledger Entry”.SETFILTER(“Res. Ledger Entry”.Quantity,’>0’);
//Resc.SETRANGE(Name,Customer.Name,Resc.Name);

Sheets.Range(‘A’+myJ).Value:=FORMAT(“Res. Ledger Entry”.“Resource No.”);
Sheets.Range(‘B’+myJ).Value:=FORMAT(CustName);
Sheets.Range(‘C’+myJ).Value:=FORMAT(“Res. Ledger Entry”.Description);
Sheets.Range(‘E’+myJ).Value:=FORMAT(“Res. Ledger Entry”.“Unit of Measure Code”);
Sheets.Range(‘F’+myJ).Value:=FORMAT(“Res. Ledger Entry”.Quantity);
Sheets.Range(‘G’+myJ).Value:=FORMAT(“Contract No”);
myJ:=INCSTR(myJ);

UNTIL “Res. Ledger Entry”.NEXT =0;