VBA for highlighting row and column of active cell

[SRMPURCHASE]

I would like to modify the following VBA to only highlight to the left and up from the active cell, can anyone help?
I like this solution as it involves no conditional formatting to perform.

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Static rr
Static cr

If cc <> "" Then
With Columns(cc).Interior
.ColorIndex = xlNone
End With
With Rows(rr).Interior
.ColorIndex = xlNone
End With
End If

rr = Selection.Row
cc = Selection.Column

With Columns(cc).Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
With Rows(rr).Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
End Sub

 

[footoo]

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

Static rng As Range


Application.ScreenUpdating = False


If Target.Areas.Count <> 1 Then Exit Sub


If Not rng Is Nothing Then rng.Interior.ColorIndex = xlNone


Set rng = Union(Target(1).Resize(Rows.Count - Target(1).Row), _
    Target(1).Resize(, Columns.Count - Target(1).Column))
 
With rng.Interior
    .ColorIndex = 8
    .Pattern = xlSolid
End With


End Sub

 

[footoo]

The previous code I posted highlights to the right and down.
The following highlights to the left and up :-

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Static rng As Range


Application.ScreenUpdating = False


If Target.Areas.Count <> 1 Then Exit Sub


If Not rng Is Nothing Then rng.Interior.ColorIndex = xlNone


Set rng = Union(Range(Cells(Target(1).Row, 1), Target(1)), _
    Range(Cells(1, Target(1).Column), Target(1)))
 
With rng.Interior
    .ColorIndex = 8
    .Pattern = xlSolid
End With


End Sub

 

[footoo]

Or perhaps this :-

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Static rng As Range


Application.ScreenUpdating = False


If Not rng Is Nothing Then rng.Interior.ColorIndex = xlNone


Set rng = Union(Range(Cells(ActiveCell.Row, 1), ActiveCell), _
    Range(Cells(1, ActiveCell.Column), ActiveCell))
 
With rng.Interior
    .ColorIndex = 8
    .Pattern = xlSolid
End With


End Sub

 

[SRMPURCHASE]

The last code works just fine, thanks so much.
One more question, can the code be modified to highlight without clearing any other formatting without tying a conditional format into the code?
Although it ignores conditionally formatted cells quite well, I would like to keep some manually set formatting as well.

 

[SRMPURCHASE]

One more question, at Static rng As Range, can I input a range there leaving a number of rows (1 thru 24) out of the VBA and highlight everything below Row 24?