Excel, скопировать данные в тот же столбец (тот же рабочий лист), заменив пустые строки, но не заменяя следующую строку данными

Кажется, это очень легко, но я не написал VBA через несколько лет. Файл, с которым я работаю, имеет формат, когда я его получаю. У меня есть столбцы UnMerge (что хорошо работает). Затем мне нужно выбрать диапазон, который нужно скопировать, выбрать диапазон копирования, а затем переместить диапазон на одну строку, чтобы я мог вставлять данные. Может кто-нибудь помочь с этой последней частью? Кажется, я не могу подняться, чтобы выбрать правильный диапазон для выбора.

Паста в порядке.

Sub unMerge() Range("A9:B5000").Select Range(Selection, Selection.End(xlDown)).Select Selection.unMerge End Sub Sub CopyRange() Dim R As Range Range("A10").Select Selection.copy Range(Selection, Selection.End(xlDown)).Select ActiveCells = "R" ActiveCells = "R" - 1 'This is the line I really need help with. ActiveSheet.Paste Selection.End(xlDown).Select 

Давайте будем гением компьютера.