Dubbele selectie met een variabele

[VraagDickBaak]

Ik wil van twee gebieden de kleur verwijderen waarbij de laatste rij van het tweede gebied variabel is. Dit lukt met de volgende code:
Sub KleurVerwijderen()

Application.ScreenUpdating = False

Dim LRij As Long
LRij = Range("B65536").End(xlUp).Row

With Worksheets("Blad1")
.Range("C4:AG4").Interior.Pattern = xlNone
.Range("C8", "AG" & LRij).Interior.Pattern = xlNone
End With

Application.ScreenUpdating = True

End Sub

Ik krijg het niet voor elkaar om beide ranges in één keer te selecteren. (Range"C4:AG4", "C8", "AG" & LRij) werkt niet. Wie kan mij daarbij helpen.

Dick

 

[VenA]

je gebruikt teveel "".

Blad1.Range("D4:AG4,C8:AG" & Blad1.Cells(Rows.Count, 2).End(xlUp).Row).Interior.Pattern = xlNone