[Alegun]

Заметил ещё такое, не там где надо стоит оператор, поменяйте цикл на это, возможно заработает

Код:

for a_:=17 to 226 do
 begin     
   ExcelApp.Range[ExcelSheet.cells[a_,1],ExcelSheet.cells[a_+5,1]].Select;
   ExcelApp.Selection.merge;
   a_:=a_+5;
 end;