excel - 在运行循环运行良好时收到运行时错误 fefor 不知道为什么现在出错

Question

Sheets("SE Export").Activate 'calls active sheet
    LastSERow = Cells.Find(What:="*", After:=[A1], _
          SearchOrder:=xlByRows, _
          SearchDirection:=xlPrevious).Row
          Range("A7").Activate
          If ("A7") = 1 Then
          Range("A6").Activate 'Active column A6
         'On Error GoTo QS_MPN_Error
Cells.Find(What:="CPN").Activate
On Error GoTo 0
End If

ActiveCell.Offset(0, 0 - (ActiveCell.Column - 1)).Activate

            
    'End If
QSMapForm.Show


    Cells.Find(What:="Lifecycle").Activate 'Find lifecycle header
    ActiveCell.Offset(1, 0).Activate
Do
        
            If ActiveCell = "" Then  'Runs through each column for lifecycle status
            ActiveCell = "Unmatched Part"
        ElseIf InStr(ActiveCell, "Preliminary") Then 'If part is preliminary then change status to conditional
            ActiveCell = "Conditional Availability"
        ElseIf InStr(ActiveCell, "Obsolete") Then
            If InStr(ActiveCell.Offset(0, 3), "") Then
                ActiveCell = "Discontinued-W/Alternates"
            Else
                ActiveCell = "Discontinued-No Alternates"
            End If
        ElseIf InStr(ActiveCell, "LTB") Then
            ActiveCell.Offset(0, 8) = ActiveCell
            ActiveCell.Replace What:="LTB", Replacement:="", LookAt:= _
                xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
                ReplaceFormat:=False
            ActiveCell.Replace What:="(", Replacement:="", LookAt:= _
                xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
                ReplaceFormat:=False
            ActiveCell.Replace What:=")", Replacement:="", LookAt:= _
                xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
                ReplaceFormat:=False
            ActiveCell.Replace What:=Chr(10), Replacement:="", LookAt:= _
                xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
                ReplaceFormat:=False
            LTBdate = ActiveCell
            ActiveCell.Offset(0, 16) = LTBdate
            ActiveCell = "Life Time Buy"
        End If

'我在运行下一行时收到错误，由于某种原因它不喜欢“”的值。ActiveCell.Offset(0, -12).Value <> "" 循环

'在定义对象时循环出错，对于“”的下一个单元格的值。ActiveCell.Offset(1, 0).Activate '我在运行下一行时收到错误，由于某种原因它不喜欢 "" 的值。代码 {Loop While ActiveCell.Offset(0, -12).Value <> ""}