Fill Across Border Settings

[FrenchCelt]

Hello,

I'm trying to code a border setting that will carry across the entire range of data. I'll give the starting point from Column A:

Thick Outside Border around A2
Thick Outside Border around A3:A9
All Borders (Thin Lines) within A10:A13
Thick Outside Border around A10:A15

And then these settings should fill across to the end of the data in whatever column that may be (varies every day).

Any help would be greatly appreciated.

 

[FrenchCelt]

This is a snippet of what it looks like when done manually.

 

[MARK858]

Closer?

Sub FrenchCelt3()
    Dim i As Long, myCell As Range
    Application.ScreenUpdating = False

    i = Rows("2:15").Find("*", , xlValues, xlPart, xlByColumns, xlPrevious, False).Column

    Rows("2:15").Borders.LineStyle = xlNone
    
    Range(Cells(2, "A"), Cells(2, i)).Borders.Weight = xlThick
    
    For Each myCell In Range(Cells(3, "A"), Cells(3, i))
        myCell.Resize(7).BorderAround , Weight:=xlThick
    Next
    
    For Each myCell In Range(Cells(10, "A"), Cells(10, i))
        myCell.Resize(4).Borders.Weight = xlThin
    Next
    
    For Each myCell In Range(Cells(10, "A"), Cells(10, i))
        myCell.Resize(6).BorderAround , Weight:=xlThick
    Next
    
    Application.ScreenUpdating = True

 

[FrenchCelt]

Bingo, you hit it right on the nose this time. Thank you so much! I appreciate you taking the time to help me out.

 

[MARK858]

You're welcome