VBA to Create Grouping (Difficult)

[Biz]

Hi

I have tried creating macros but they are not working properly as it does not give results as per After Worksheet tab.

Sub Blanks()
  
'Remove Bolds on Blank Cells
    Cells.Select
    Selection.SpecialCells(xlCellTypeBlanks).Font.Bold = False
 
End Sub

Sub Check()
'
' 
'
Dim RowCount As Integer
Dim RowNo As Integer
Dim iColNo As Long
Dim LastCheck As Integer
Dim FirstCheck As Integer
Dim CalcFlag As Boolean

'Count number of rows
RowCount = ActiveSheet.UsedRange.Rows.Count

'Initialise the range
LastCheck = 4



For iColNo = 3 To 9
For RowNo = 2 To RowCount

If Cells(RowNo, iColNo).Font.Bold = True Then
     FirstCheck = RowNo - 1
End If

If FirstCheck > LastCheck Then
Rows(FirstCheck & ":" & LastCheck).group
'MsgBox (FirstCheck & "and" & LastCheck)
Cells(RowNo, iColNo).Font.Underline = True
'Selection.Rows.Group
LastCheck = FirstCheck + 2
End If
Next RowNo
LastCheck = LastCheck + 1
Next iColNo


End Sub

Structure
Grouping Starts one cell below the bold and grouping ends before next bold. For instance, Col I relates to Staff Permanent grouping which
starts from row 10 and finishes on row 28.

Looping structure would loop through I to D.


End goal is to have structure below at Level 1 grouping.

1000 Group Accounts
41 Profit and Loss
39 Net Surplus / (Deficit) After Tax
42 Net Operating Surplus / (Deficit)
43 Net Non-Operating Surplus / (Deficit)
6 Liabilities & Equity
28 Liabilities
29 Ratepayers equity
7 Asset
8 Assets
9 Non-Current Assets
10 Current Assets


From the above there grouping for Profit and Loss, Liabilities & Equity, Asset

Hope above helps.

Biz