合并单元格的问题

在VBA中想要合并相邻的两个单元格，如果两个单元格中都有数据那么Excel会弹出对话框，问你是否确定保留左边单元格数据，但是我不想要弹出这个对话框，怎么实现呀，谢谢大家
下面是例子，合并B2和C2单元格，如果B2和C2中都有数据，那么就会弹出提示框。

Worksheets("sheet1").Range(B2:C2).Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge

[解决办法]

VB code

Sub Macro1()'' Macro1 Macro' 宏由 HG 录制，时间: 2010-2-19' Application.DisplayAlerts = False    Range("A1:A2").Select    With Selection        .HorizontalAlignment = xlCenter        .VerticalAlignment = xlCenter        .WrapText = False        .Orientation = 0        .AddIndent = False        .IndentLevel = 0        .ShrinkToFit = False        .ReadingOrder = xlContext        .MergeCells = False    End With    Selection.Merge   End Sub