makro der farvelægger aktuel linje

Jeg har en kodestump der sørger for at den aktuelle linje altid er farvelagt.

Den farvelægger fra kolonne A til den aktive celle.
Jeg gerne have den til altid at farvelægge fra kolonne A til kolonne Q, men jeg kan ikke få den til at makke ret.

er der nogen der kan hjælpe mig lidt på vej?


Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
    Dim RngRow          As Range
    Dim RngFinal        As Range
    Dim Row            As Long
    Dim Col            As Long
   
    Row = Target.Row
    Col = Target.Column
    Set RngRow = Range("A" & Row, Target)
    Set RngFinal = RngRow
    RngFinal.Interior.ColorIndex = 48
   
End Sub