Bordes y Sombreados Array

Tengo que diseñar una macro, que después de obtener los datos para un
informe, le aplique bordes y sombreados, a los datos que obtuvo, la cantidad de
datos es variable, por lo que creo, por cuestiones de velocidad de la macro, es
mejor mediante un array, tema que la verdad no entiendo bien…en una prueba me
di cuenta que el Array de rangos al ser excesivos arroja el Error en el método ‘Range’
de OBJETO’_Global’ (Los Bordes y
sombreados se aplican un Registro si, y otro no y así sucesivamente) , había considerado
hacer esto mediante un Bucle, pero considero podría dispararme el tiempo de ejecución
de la macro, también había considerado ir creando arrays con un determinado
número de rangos (20) para evitar el error ‘Range’ de OBJETO’_Global’ y unirlos
mediante Union(), la situación es que no tengo ni la menor idea de cómo hacer
esto xD, y si de hacerlo así, si se volviese a dar el problema… por lo que agradeceré
tu ayuda….te Muestro un ejemplo….obvio k sin los Arrays Variables

Sub Sean_Parker()
Dim Shadow() As Range
a = Range("G2").Value
aa = Range("G3").Value
ReDim Shadow(1 To aa) As Range
For i = 13 To (a + 12) Step 2
Select Case i
Case 13
o = ""
Case Else
o = ","
End Select
u = u + o & "B"
& i & ":" & "E" & i
Next i
Set Shadow(aa) = Range(u)
Shadow(aa).Select
End Sub

Utilizo Excel 2013

Nótese que redimensione Shadow aun que en verdad no lo Declaro En Bucle...ayudame...por tu atención y tiempo, Gracias