макрос для Скрыть строки в Excel 2010

Я как бы новичок в программировании на VBA. Я читал кое-что в Интернете, но не смог найти то, что мне нужно, или не смог заставить его работать. моя проблема:

на листе «лист 1» в ячейке B6 указано значение того, сколько лет будет эксплуатироваться проект.

в листах «лист 2» и «лист 3» я сделал электронную таблицу на 50 лет (от 1 года до 50 года; от строки 7 до строки 56).

в ячейке b6 на «листе 1» я хочу ввести значение от 1 до 50. когда значение равно 49, я хочу скрыть строку 56 на «листе 2» 'и' лист 3 '. когда значение 48, я хочу скрыть строки 55:56 в «листе 2» и «листе 3» и т. д. это то, что я получил до сих пор, но я не могу заставить его работать автоматически, когда я изменяю значение в ячейке B6:

Sub test1()
    If Range("sheet1!B6") = 50 Then
    Rows("52:55").EntireRow.Hidden = False
    Else
    If Range("sheet1!B6") = 49 Then
    Rows("55").EntireRow.Hidden = True
    Else
    If Range("sheet1!B6") = 48 Then
    Rows("54:55").EntireRow.Hidden = True

    End If: End If: End If:

    End Sub

Надеюсь, кто-то может помочь мне с моей проблемой.

Спасибо