Range("T1:T20", "A1:A20").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0.799981688894314
.PatternTintAndShade = 0
End With
Não sabia que com o comando range poderia selecionar células não adjacentes. Achei legal e resolvi compartilhar. Também porque a mudança foi simples e deu uma encurtada no código.