使用已定义的单元格引用范围

Question

我正在尝试将格式从工作表“Info！B1：B23”复制到“Data！B2：?? 23”。行号始终为1 - 23.列始终在列B中开始，但目标工作表中的列数可能会更改。

这是我到目前为止所做的，但无法弄清楚如何在代码中使用我的列数来粘贴格式。

Sub FormatPlans()
    '
    ' FormatPlan Macro
    Dim ws As Worksheet
    Set ws = Sheets("Data")
    colLast = ws.Cells(1, Columns.Count).End(xlToLeft).Column

    Sheets("Info").Range("B1:B23").Copy
    With ws.Range("B1,colLast")
        .PasteSpecial xlPasteFormats
    End With

End Sub