VBA周度营收报表代码优化求助：添加年月表头与月份分隔粗线

各位大佬好！我从Stack Overflow找了一段VBA代码，原本可以根据输入框指定的年月生成周度营收报表，我已经做了少量修改，但现在还有两个优化需求搞不定，特此来求助：

• 希望能在报表的顶部列显示对应的年月信息
• 需要在不同月份的报表区域之间添加粗线分隔

我的代码片段如下：

Sub SetWeeklySplitForRevenue() 
    Dim intDay As Integer, firstIter As Integer 
    Dim startMonth As Date, endMonth As Date 
    Dim str As String 
    Dim IsStartMonth As Boolean, IsEndMonth As Boolean 
    Dim rng As Range, Rng1 As Range, Rng2 As Range 
    Dim I As Long 
    Dim ws As Worksheet 
    Sheets("WeekWise_Revenue").Activate 
    Applicatio...

内容的提问来源于stack exchange，提问作者dhanya