如果我得到了它，你需要移动选择到5个空单元格下的当前选定的单元格（其中你刚刚粘贴了一个Unicode文本）。
我写了潜艇“Movedown5”，在你的潜艇上调用，最后的结果是：

Sub PASTE()
' PASTE Macro
' Keyboard Shortcut: Ctrl+Shift+A
ActiveSheet.PasteSpecial Format:="Unicode Text", Link:=False, _
    DisplayAsIcon:=False
MoveDown5
End Sub

Sub MoveDown5()
Dim counter As Integer
counter = 0
Do While counter < 5
    ActiveCell.Offset(1, 0).Select
    If IsEmpty(ActiveCell.Value) Then
        counter = counter + 1
    End If
Loop
End Sub

代码向下移动一个单元格并测试它是否为空。如果是，则将其视为空单元格。如果不是，则继续下一个循环。
然后向下重复循环一个单元，直到计数器为5（不超过5）。