VBA多个sheet页合并为一个sheet页，并且加边框

Sub sumSheet()
Application.ScreenUpdating = False
'获取当前sheet页名字(即合并之后的sheet名)
strName = ActiveSheet.Name
'sheet数循环
For j = 1 To Sheets.Count
   '如果不是当前活动sheet
   If Sheets(j).Name <> strName Then
       '有内容的行中加入边框
       Sheets(j).UsedRange.Borders.LineStyle = xlContinuous
       '与下一个sheet内容之间加入3行空白行
       bRow = Range("A65536").End(xlUp).Row + 3
       '合并后添加表名
       Worksheets(strName).Range("B" & bRow - 1).Value = Mid(Sheets(j).Name, InStr(Sheets(j).Name, " ") + 1, Len(Sheets(j).Name))
       '各个表复制到合并之后的sheet中
       Sheets(j).UsedRange.Copy Cells(bRow, 1)
       '获取表头最后一个单元格的坐标
       endCol = Worksheets(strName).Range("B" & bRow).End(xlToRight).Address(0, 0)
       '给表头设置颜色(灰色)
       Worksheets(strName).Range("B" & bRow & ":" & endCol).Interior.ColorIndex = 15
   End If
Next

Range("B1").Select
Application.ScreenUpdating = True
MsgBox "合并完成", vbInformation, "提示"

End Sub