как выделить столбцы макросом

[kartol]

SAS888 подскажите ещё немного

[SAS888]

Т.к. файл сохраняется по указанному Вами пути, поэтому я не могу прикрепить исправленный файл к сообщению. Будет не то.
Сделаем так:
В программном модуле замените весь код на следующий:

Public x As Range

Sub qq()
    Set x = Intersect([F:H], [A:A].SpecialCells(xlCellTypeConstants, xlNumbers).EntireRow)
    x.Select
End Sub

Sub ww()
    If x Is Nothing Then Exit Sub Else If x.Address <> Selection.Address Then Exit Sub
    x.ClearContents
End Sub

Кнопке "ОЧИСТИТЬ" назначьте макрос "ww". Т. к. при защищенном листе оба макроса работают с областью незащищенных ячеек, то снимать и устанавливать защиту не требуется. Будьте внимательны при добавлении последующих таблиц на лист: в свойствах рабочего диапазона ячеек снимайте флажок "защищаемая ячейка" (как у Вас сделано в существующей таблице).
А в модуль "Эта книга" поместите такой код:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Application.EnableEvents = False: Application.DisplayAlerts = False
    ThisWorkbook.SaveAs Filename:="c:\Users\Анатолий\Pictures\qq.xls"
    Application.EnableEvents = True: Application.DisplayAlerts = True
    Cancel = True
End Sub

Небольшое замечание: Опция UserInterfaceOnly, которой Вы, по-видимому, пытались воспользоваться, позволяет выполнять макросам код не снимая защиты. Но эта опция НЕ СОХРАНЯЕТСЯ вместе с файлом при сохранении. Поэтому, каждый раз, при открытии файла, по событию Workbook_Open, нужно снимать защиту листа и вновь устанавливать ее с опцией UserInterfaceOnly:=True.

Для того, чтобы при изменении даты в компьютере она изменилась в ячейке с формулой, нужно, чтобы пересчитался рабочий лист. Т. е. либо нужно изменить значение одной из ячеек, влияющих на расчет в другой ячейке, либо просто нажать F9.