类型不匹配运行时错误13

我之前已经成功运行了此宏，现在收到不匹配错误。

宏从“数据”选项卡（数据原始）复制所有行，其中Col S =单元格D1（在其他选项卡上）。然后将特殊值粘贴到第三个选项卡（Rec01）。

D1，格式为常规，带有文本数据（名称）Col S，格式为General，所有公式均显示名称。

Sub CopyRowToRec01()
Dim LastRowData, LastRowRec01 As Long
Dim i As Long
Application.ScreenUpdating = False
LastRowData = Worksheets("data-raw-Comb").Range("A" & Rows.Count).End(xlUp).Row
With Worksheets("data-raw-Comb")
    For i = 2 To LastRowData Step 1
        If Cells(i, "S").Value = Worksheets("data-lookuptable").Range("D1") Then
            LastRowRec01 = Worksheets("Rec01").Range("A" & Rows.Count).End(xlUp).Row
            Rows(i).Copy
            Worksheets("Rec01").Range("A" & LastRowRec01 + 1).PasteSpecial Paste:=xlPasteValues
        End If
    Next i
End With
    Application.ScreenUpdating = True
End Sub

运行相同版本的Excel。任何见识将不胜感激。DD