VBA宏实现每次运行从BC4起始逐次右移同一行下一列

用户的核心需求：

• 固定锚点为Sheet7的BC4单元格
• 每次运行宏自动跳转到同一行（第4行）的下一列单元格，自动记忆上次运行的跳转位置
• 预期跳转路径：首次运行跳BD4，第二次跳BE4，后续依次顺延至BF4、BG4、BH4……
• 已验证基础跳转逻辑有效：手动选中BC4时，执行ActiveCell.Offset(0, 1).Select可正常实现单步右移一格的效果，但无法实现位置记忆、连续跳转的逻辑

第一段尝试代码 #

Sub Move()
With Sheet7.Range("BC4")
.Offset(0, 1).Activate
End With
End Sub

失效原因：代码写死从BC4单元格做偏移，每次运行都会重置计算起点，永远只会定位到BD4，完全无法记忆上次的跳转位置

第二段尝试代码 #

Sub Move()
Sheet7.Range("BC4").Select
With Selection
.Offset(0, 1).Activate
End With
End Sub

失效原因：逻辑和第一段完全一致，运行后先强制选中BC4，再执行右移偏移，依然没有任何位置记忆能力，每次运行的结果都是跳转到BD4

第三段尝试代码 #

Sub Move()
Dim FirstCell As String
Dim i As Integer
FirstCell = "BC4"
Range(FirstCell).Select
Do Until ActiveCell.Value = ""
If ActiveCell.Value = "" Then
ActiveCell.Offset(0, 1).Select
End If
Loop
End Sub

失效原因：循环逻辑存在严重漏洞，循环触发条件和内部判断条件完全重复，且每次运行都强制重置回BC4起点，没有内置的位置存储机制，运行后轻则无跳转、重则触发死循环卡死

要实现「从BC4起始、自动记忆上次位置、逐列跳转」的效果，最轻量化的方式是使用静态变量存储当前位置——静态变量在宏运行结束后不会被内存回收，只要不重启Excel、不重新编辑宏触发编译重置，就会一直保留上次的位置信息，完全匹配需求。
对应代码实现：

Sub MoveNextColumn()
    ' 定义静态变量存储当前所在单元格，过程结束后值不会清空
    Static currentPos As Range
    
    ' 首次运行时初始化：如果变量未绑定有效单元格，就从锚点BC4开始计数
    If currentPos Is Nothing Then
        Set currentPos = Sheet7.Range("BC4")
    End If
    
    ' 计算下一列的位置
    Set currentPos = currentPos.Offset(0, 1)
    ' 选中目标单元格
    currentPos.Select
End Sub

补充说明：如果需要跨Excel重启也保留上次的跳转位置，可以把当前的列号存在任意一个不常用的隐藏单元格中，每次运行宏时先读取存储的列号还原位置，再做偏移，不需要调用外部文件或者插件。

内容的提问来源于stack exchange，提问作者user15169505