Здравствуйте всем!

Подскажите пожалуйста со след. проблемой.
есть таблица (прикладываю) - необходимо выложить ee в excel в определенном формате (формат присылаю во втором сообщении к данному письму).
Помогите, пожалуйста.

Формат:

sele super_res_vib
lcPrev = '***'
lcPrev2 = '***'
lnSum = 0
lnSum2 = 0
lnRowNum = 0
lnRowNum1 = 0
lnRowNum2 = 0
scan
if lcPrev != super_res_vib.fiob
.cells(lnRowNum,1).Value = custship2.fiob
lnRowNum = lnRowNum+1
if lnSum2 != 0
* ???? ?????????
? '?????:', lcPrev2, lnSum2
lnSum2 = 0
lcPrev2 = '***'
endif
if lnSum != 0
* ???? ??????
? '?????:', lcPrev, lnSum
lnSum = 0
endif
lcPrev = super_res_vib.fiob
* ?????? ??????
? super_res_vib.fiob
endif
if lcPrev2 != super_res_vib.nazpol_a
lcPrev2 = super_res_vib.nazpol_a
? super_res_vib.nazpol_a
endif
* ?????? ?????? ??????
? super_res_vib.sum_pers
lnSum = lnSum + super_res_vib.sum_pers
lnSum2 = lnSum2 + super_res_vib.sum_pers
endscan

вот код.
Хочется типа так:
SCAN

lnRowNum = lnRowNum+1

IF lcFIOBPrev <> custship2.fiob
.cells(lnRowNum,1).Value = custship2.fiob
lnRowNum = lnRowNum+1
ENDIF

.cells(lnRowNum,6).Value = custship2.stoim
.cells(lnRowNum,4).Value = custship2.naim_usl

lcfioBPrev = custship2.fiob


endscan

Но я сбиваюсь при счетчиках перехода на новую строку