Excel VBA隐藏第n个可见列

我有一个工作表来记录花在不同任务上的时间——每个工作日都是一列

当每周结束时，我想隐藏这些列（6列，包括总数），并继续在整个列中工作

有没有一种方法可以从第二列到第六列的可视范围中提取并隐藏它

---

也就是说，我隐藏的第一个星期是B:G列，然后是H:M列，然后是N:s列等等，这将保持A列显示并隐藏接下来的6个可见列：

With ActiveSheet
    .Range(.Cells(1, 2), .Cells(1, .Columns.Count)).SpecialCells(xlCellTypeVisible).Range("A:F").EntireColumn.Hidden = True
End With