Guru do Excel e Power BI

Boa Noite, sempre que eu preciso colorir as bordas eu vou marcando uma a uma e depois pinto as bordas ai gravei o que eu faço: Só que ela desmarca, como eu faço para ficar marcada para colorir ?

Sub Preencher()
'
' Preencher Macro
'
' Atalho do teclado: Ctrl+Shift+E
'
Range( _
"A2:A18,B2:N2,O2:O18,Q2:Q18,R2:AD2,AE2:AE18,R18:AD18,B18:N18,A20:A36,B20:N20,O20:O36,Q20:Q36,R20:AD20,AE20:AE36" _
).Select
Range("AE20").Activate
ActiveWindow.SmallScroll Down:=18
Range( _
"A2:A18,B2:N2,O2:O18,Q2:Q18,R2:AD2,AE2:AE18,R18:AD18,B18:N18,A20:A36,B20:N20,O20:O36,Q20:Q36,R20:AD20,AE20:AE36,R36:AD36,B36:N36,A38:A54,B38:N38,O38:O54,Q38:Q54,R38:AD38,AE38:AE54" _
).Select
Range("AE38").Activate
ActiveWindow.SmallScroll Down:=24
Range( _
"A2:A18,B2:N2,O2:O18,Q2:Q18,R2:AD2,AE2:AE18,R18:AD18,B18:N18,A20:A36,B20:N20,O20:O36,Q20:Q36,R20:AD20,AE20:AE36,R36:AD36,B36:N36,A38:A54,B38:N38,O38:O54,Q38:Q54,R38:AD38,AE38:AE54,B54:N54,R54:AD54,A56:A72,B56:N56,O56:O72,Q56:Q72,R56:AD56,AE56:AE72,R72:AD72" _
).Select
Range("B72").Activate
ActiveWindow.ScrollRow = 42
ActiveWindow.ScrollRow = 41
ActiveWindow.ScrollRow = 40
ActiveWindow.ScrollRow = 38
ActiveWindow.ScrollRow = 37
ActiveWindow.ScrollRow = 35
ActiveWindow.ScrollRow = 23
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 1
End Sub

Obrigado !!

Olá,

Não compreendi o que deseja fazer. Pode ser mais específico?

Abraço.

Boa noite Marvini2016 ,

Resolvi seu problema, na célula "AG11" você seleciona a cor que deseja colorir e então é só clicar sobre o botão!

Se isso te ajudou, ajuda-me também clicando em obrigado!

Grato.