uss.Select
Этой строкой Вы выделяете незащищенные ячейки ранее выделенного диапазона (In Selection - в выделенном). Но нужно же удалить данные:
uss.ClearContents
Если в выделенном диапазоне не окажется ни одной незащищенной ячейки, Ваш код вывалится в ошибку. Нужно проверять заполнение диапазона:
If Not uss Is Nothing Then uss.ClearContents
Макрос работает с выделенным диапазоном. Если нужно очистить все незащищенные ячейки на листе, можно работать с UsedRange - пользовательским диапазоном.
Код можно сократить, если заранее известна хоть одна ячейка, которая должна быть очищена. Такой ячейкой может быть любая пустая или та, удаление данных в которой не повредит дальнейшей работе. Естественно, она должна быть незащищенной.
Sub Clear_Cell()
Dim r As Range, ur As Range
Set ur = Cells(1, 1) ' очищаемую ячейку - в формируемый диапазон '
For Each r In ActiveSheet.UsedRange ' проверяем ячейки пользовательского диапазона '
If Not r.Locked Then Set ur = Union(ur, r) ' незащищенные - в формируеммый диапазон '
Next r
ur.ClearContents ' очищам сформированный диапазон '
Set ur = Nothing ' освобождаем память '
End Sub
Попутно: не называйте процедуры, переменные и проч. зарезервированными словами. Макрос лучше назвать иначе, например: Sub Clear_Cell().
Если переменной присваивался объект, переменную по окончании работы желательно очистить (Set ur = Nothing)