VBA code to perform conditional formatting

[KWL]

I am seeking help developing VBA code to perform the following conditional formatting:
I prepare a daily spreadsheet that varies in length (up to 3000 rows)…. Column A contains defined “groups” of various lengths beginning in A2 with a blank row separator between each group….Column Q (beginning in Q2) in my spreadsheet has numeric values that represent various ranks unique to the pre-defined groups, my goal is to add a corresponding bold (black) “border” in the adjacent cell (Column R) for all numeric values (ranks) shown in Column Q >0 and <6. (Note: Column R has blank cells that are used for manual entry at a later time…. The bold (black) “border” is intended to draw attention to facilitate the manual entry.)
Thanks in advance for any available help,
KWL

 

[Glory]

Sub test()
 
Dim [B][I]theRange[/I][/B] As Range
 
Set [B][I]theRange[/I][/B] = Application.Intersect(Range("Q1:Q" & Rows.Count), _
                ThisWorkbook.Sheets("Sheet1").UsedRange)
 
[COLOR=blue]For Each Cell In[/COLOR] [B][I]theRange[/I][/B]
 
 [COLOR=green]   If Cell < 6 And Cell > 0 Then[/COLOR]
 
[COLOR=darkred]        With Cell.Offset(0, 1).Borders[/COLOR]
[COLOR=darkred]             .LineStyle = xlContinuous[/COLOR]
[COLOR=darkred]            .Weight = xlThick[/COLOR]
[COLOR=darkred]         End With[/COLOR]
[COLOR=pink] [/COLOR]
[COLOR=green]    End If[/COLOR]
 
[COLOR=blue]Next[/COLOR]
 
End Sub

 

[KWL]

Glory,

Thank you so very much! Works to perfection!

Best regards,

KWL