var
Heading: IXLSRange;
begin
Heading := Workbook.Sheets[1].Range['A1', 'F2'];
if Heading.MergeCells then
Heading.UnMerge;
Workbook.Sheets[1].Range['A1', 'A1'].Value := 'Region';
Workbook.Sheets[1].Range['B1', 'B1'].Value := 'Amount';
end;