Спасибо, огромное!

В правилах сайта написано, что можно плюсовать помогающим, но что-то я не нашел, как это сделать.

Разобрался! Спасибо!
А если таблиц на листе несколько?

Sub Макрос1()
   If Not Intersect(Selection, ActiveSheet.ListObjects("Таблица1").DataBodyRange) Is Nothing Then
       Intersect(Selection, ActiveSheet.ListObjects("Таблица1").DataBodyRange).FormulaR1C1 = "Все хорошо!"
   End If
   If Not Intersect(Selection, ActiveSheet.ListObjects("Таблица2").DataBodyRange) Is Nothing Then
       Intersect(Selection, ActiveSheet.ListObjects("Таблица2").DataBodyRange).FormulaR1C1 = "Все хорошо!"
   End If
End Sub

Такой вариант работает, но как более коротко и правильно можно добавить перечисление нескольких таблиц на листе? Вопрос для саморазвития.

Добрый день!
А можно ли данное действие применить в другом макросе?
Есть простенький макрос, записанный макрорекордером. При нажатии на кнопку, в выделенные вручную ячейки, вставляется некая надпись. Необходимо же, что бы надпись можно было вставлять в определенный диапазон, в выделенные вручную ячейки. В таблицу будут добавляться строки, соответственно диапазон будет меняться. За пределами диапазона макрос работать не должен.

Sub Макрос1()
   Selection.FormulaR1C1 = "Все хорошо!"
End Sub

Диапазон текущей таблицы C3:E13.

Спасибо огромное!

Спасибо! Но есть одно но. Данный вариант работает только в диапазоне с заполненными данными. Если в таблице 10 строк, первые пять из которых заполнены, а следующие 5 пустые, то диапазон выбирается только до пятой строки. Первоначальный вариант таблицы не заполнен, поэтому необходимо, что бы диапазон выбирался от определенной ячейки, до последней строки и пустой и заполненной таблицы.

Добрый день!
Прошу прощения, если решение уже есть на сайте. Найти то, что нужно у меня не получилось. Есть очень много похожих тем, но применить к своему случаю не смог.
Есть вопрос, который никак не удается решить:
Есть известный календарь для вноса даты, с заданным диапазоном для его работы.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("B3:B15")) Is Nothing Then
x = Target.Address
UserFormCalendar.Show
End If
End Sub
Можно ли сделать данный диапазон динамическим, то есть, что бы можно было добавлять строки в таблицу?
Вариант Range("B3:B65536") не подходит, так как необходимо исключить возможность вноса даты вне таблицы.