列从B列至包含今日日期的一列

好的，如果您要将复制的列范围固定为B列至包含今天日期的那一列，可以将代码修改如下：

Sub CopyRange()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim today As Date
    Dim lastCol As Long
    
    '获取当前日期
    today = Date
    
    '指定工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    '获取最后一行
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Offset(1, 0).Row
    
    '获取包含今天日期的最后一列
    lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).End(xlToLeft).Column
    
    '复制B列至包含今天日期的那一列
    ws.Range(ws.Cells(2, 2), ws.Cells(lastRow, lastCol)).Copy
    
    '清除剪贴板
    Application.CutCopyMode = False
    
    '弹出提示框
    MsgBox "复制成功！"
End Sub

在上述代码中，我们使用了 `xlToLeft` 来查找包含今天日期的最后一列，然后将其作为复制范围的最后一列。这样，您就可以实现按照包含今天日期的那一列来复制数据了。