СОздание макроса в эксель.

[МихаилШтурман]

Всем привет. Скажу сразу, программу эксель я только начал изучать, поэтому пока в ней полный ноль.
Суть вопроса в следующем.
Как прописать макрос что бы
Пример 1. При нажатии кнопки 25% цветом и текстом заполнилась ячейка D6, при повторном ее нажатии сброс заполнения.

Пример 2. При нажатии стрелочки вверх цветом и текстом заполнилась ячейка Н6, при повторном ее нажатии заполнилась ячейка Н5, при нажатии стрелочки вниз сброс заполнения ячейки в обратном порядке.

Пробовал через функцию запись макроса, то есть включал ее, нажимал на кнопку и показывал что должно произойти с ячейкой, останавливал запись.
При запуске макроса, того эффекта что я хочу нет.Заполнение.xlsx

Sub Макрос1()
'
' Макрос1 Макрос
'

'
Range("D6").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub
Sub Макрос2()
'
' Макрос2 Макрос
'

'
Range("D6").Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub
Sub Макрос3()
'
' Макрос3 Макрос
'

'
Range("D5").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("D5").Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub