Marco for making borders around 'groups'

[Piet1990]

Hello,

Im quite new in making excel-marcos.
And Im trying to figure it out or its possible to make a marco that automatically places a border around each of my groups
The difficult part with this is that not all of my groups contain the same amount of rows. Some are only 1 row while others can be 10 rows.

See example below to make it more clear

How it is:

How I want it:

Thanks a lot!
Piet

 

[kevin9999]

Please try the following on a copy of your workbook. Run the macro with the sheet active.

Option Explicit
Sub test()
    Const LCol As Long = 9
    Dim BRow As Long, LRow As Long, i As Long
    Dim r As Range
    BRow = Cells.Find("*", , xlFormulas, , 1, 2).Row
    LRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    For i = LRow To 1 Step -1
        If Cells(i, 1) <> "" Then
            Set r = Range(Cells(i, 1), Cells(LRow, LCol))
            r.BorderAround ColorIndex:=1, Weight:=xlMedium
        End If
    Next i
End Sub

 

[footoo]

Deleted.

 

[Piet1990]

Please try the following on a copy of your workbook. Run the macro with the sheet active.

Option Explicit
Sub test()
    Const LCol As Long = 9
    Dim BRow As Long, LRow As Long, i As Long
    Dim r As Range
    BRow = Cells.Find("*", , xlFormulas, , 1, 2).Row
    LRow = Cells(Rows.Count, 1).End(xlUp).Row
   
    For i = LRow To 1 Step -1
        If Cells(i, 1) <> "" Then
            Set r = Range(Cells(i, 1), Cells(LRow, LCol))
            r.BorderAround ColorIndex:=1, Weight:=xlMedium
        End If
    Next i
End Sub

It works.
Thanks a lot for the help!

 

[kevin9999]

It works.
Thanks a lot for the help!

You're welcome, and thanks for the feedback