Как открыть конкретный диапазон ячеек, который находится в последнем ряду (ах), в MsgBox (если возможно) или во всплывающем окне?

Question

Это дополнительный вопрос к ранее решенному вопросу. Пожалуйста, просмотрите предыдущий код, чтобы получить идею. здесь: Как запретить копирование строки в другую рабочую книгу, когда у диапазона нет данных при использовании 'LastRow' 'xlUp'

Мне удалось успешно скопировать и вставить определенный диапазон (содержащий значения) в другую книгу. Теперь, чтобы проверить, были ли введены данные, я использую кнопку Cltr + Стрелка вниз , чтобы перейти к последней ячейке со значением. Проблема в том, что, поскольку есть люди, использующие это, которые почти ничего не знают о компьютерах, они случайно нажимают неправильные кнопки, которые могут стереть значение ячейки. Поэтому мне нужно сделать макрос, чтобы найти последний вставленный диапазон. Мне удалось использовать MsgBox, чтобы отобразить значение последнего столбца строки «A».

Sub LastUsedRow_SpecialCells_1()
Dim LastRow As Long
LastRow = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
 MsgBox LastRow
End Sub

Но мне нужен MsgBox для отображения диапазона, так как код вставляет несколько строк в зависимости от количества введенных строк.

Еще один метод, который я нашел, это

Sub test()
    Dim r As Range, ary
    Dim LastRow As String
    LastRow = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
    Set r = Sheets("Sheet1").Range("A1:R1")
    ary = Application.Transpose(Application.Transpose(r.Value))
    MsgBox Join(ary, " ")
End Sub

Но это показывает только первую строку, так как я не определил функцию «Последняя строка» .. затем снова мне нужен диапазон, состоящий из нескольких строк.