只在第三行做合并 不是所有区域合并

如果你只想在第三行中合并单元格，而不是合并整个区域，可以修改代码如下：

Sub MergeCells()
    Dim Today As Date
    Dim ColNum As Integer
    Dim StartCell As Range
    Dim EndCell As Range
    Dim MergeRange As Range
    
    '获取今日日期所在的列号
    Today = Date
    ColNum = Application.Match(Today, Range("1:1"), 0)
    
    '计算需要合并的单元格范围
    Set StartCell = Cells(3, ColNum)
    Set EndCell = Cells(3, ColNum)
    Do While Not IsEmpty(EndCell) And EndCell.Row < Rows.Count
        Set EndCell = EndCell.Offset(1, 0)
    Loop
    Set EndCell = EndCell.Offset(-1, 0)
    
    '合并单元格并设置为居中对齐
    Set MergeRange = Range(StartCell, EndCell)
    MergeRange.Merge
    MergeRange.HorizontalAlignment = xlCenter
End Sub

在这个修改后的代码中，我们只查找今日日期所在的列号，并从第三行开始，向下查找不为空的单元格，以确定合并范围的结束单元格。最后，我们将找到的合并单元格范围应用于MergeRange变量，并将其合并并设置为居中对齐。

请注意，这个代码假设在第三行以及今日日期所在的列中，都至少有一个非空单元格，否则可能会导致错误。你可以在代码中添加一些错误处理机制，以避免这种情况的发生。