Help VBA Code Formatting, Some code stopping at row 2501

[TkdKidSnake]

Hi all,

I'm not sure if anyone will be able to help me, I have a report that has a random amount of lines where I am using VBA code to format it in the way I need. This issue is that some of the formatting code stops at row 2501 and I am not able to see why - the code I have is below:

Range("A4:I4").Select    With Selection.Interior
        .Pattern = xlSolid
        .Color = 10498160
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ThemeColor = 1
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Range("I4").Select
    ActiveCell.FormulaR1C1 = "Formulate Your Questions Below"
    Range("I5").Select

If anyone can see an issue or are able to provide any help then it would be greatly appreciated.

Thanks in advance.

 

[Joe4]

Can you post your block of code pertinent to that part, and we can see if we can help fix it up?