个人宏文件没有了，怎么办

RunRun2021

大家好，我是VBA小白，需要大神帮助。 1.公司配置了一台笔记本，做了宏代码应用Excel,但是发现不能保存到个人宏文件，因为找不到个人宏文件。取消隐藏，然后搜索了整个C盘也没有找到？那怎么办？怎么才能找回来用？
2.图片中的代码如果i设置成i=2 to 1048576 step 1, 为什么跑的时候是调试错误？（这个excel文件只有4000行, 如果我设置成2 to 5000行倒是可以运行的） ，还有如果我要设置成到有数据的最后一行，代码应该怎么写？

Sub 宏1()
    Dim i As Integer
    '如果J列为空，则停止，否则J列若为G,I列对应的数值则除以1000
    For i = 2 To 9000 Step 1
        If Range("J" & i) = "" Then
            Exit For
        ElseIf Range("J" & i) = "G" Then
            Range("I" & i) = Range("I" & i) / 1000
        End If
    Next

   '筛选D列2开头的行
    ActiveSheet.Rows("1:1").Select                   '选中第一行
    Selection.AutoFilter                             '为第一行设置自动筛选功能
    Selection.AutoFilter Field:=4, Criteria1:=Array("201", "202", "261", "262"), Operator:=xlFilterValues  '在第四列设置筛选条件

End Sub

493861364

问题一，你把原来电脑的个人宏文件copy到新电脑的对应目录下，或者也可以自己录制宏，在弹出窗口选择保存到个人宏文件，然后系统就会新建一个了

493861364

问题二，可以百度 vba中表示有数据的最后一行

有很多种写法