Зафиксировать дату внесения данных - VBA

Формулировка задачи:

Добрый день, прошу вас помочь мне с решением задачи. Есть ячейка A1 и A4. Необходимо сделать так, чтобы при внесение данных в ячейку A4 в ячейке A1 проставлялся месяц когда был внесен данных (например Декабрь). Проблема состоит в том, что когда наступает другой месяц(январь) то предыдущие записи автоматически меняются на январь. Прошу помочь.Спасибо!

Решение задачи: «Зафиксировать дату внесения данных»

textual
                            Листинг программы 
                        

                            Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 5 And Target.Column > 6 Then Target.Offset(-4) = Format(Date, "mmmm")
End Sub
                        