Hjælp til makro

Jeg fik hjælp til dette skriv fra en herinde men vil meget gerne have det udvidet med en detalje.

Lige nu foretages der en indexering (1.1 - 1.2 etc) hvis jeg indsætter ny linje. Herudover ændres hovedoverskrifen (1 - 2 - 3 etc.) hvis kol. B bliver markeret med fed. Det jeg rigtig godt kunne tænke mig var at den linje med hovedoverskriften samtidig med at der indsættes nummering i kol. A foretages en markering med farve (eks. grå) ved denne overskrift. Denne farve skal markere rækken fra kol. A til kol. F.

Er der nogle der kan hjælpe?

Kode

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("b4:b100")) Is Nothing Then
Dim LastRow As Long
Range("A4:A100").NumberFormat = "@"
y = 0
Z = 0
Range("A4:A100").ClearContents
LastRow = Range("b65536").End(xlUp).Row
For x = 2 To LastRow
If Cells(x, 2).Font.Bold = True Then
Z = 0
y = 1 + y
Cells(x, 1) = y
Else
Z = Z + 1
Cells(x, 1) = (y & "." & Z)
End If
Next
End If
End Sub