With WorkBook.Sheets[1].Range['A1','A5'] do begin
  Merge;
  Value := 'Text';
  Orientation := 90;
end;

With WorkBook.Sheets[1].Range['B1','B5'] do begin
  Merge;
  Value := 'Vertical';
  Orientation := xlVertical;
end;