VBA 编码 - - 如果单元格包含某个文本

Question

我知道这是一个反复出现的话题，但我需要你的帮助，因为我的 VBA 代码不起作用
我正在尝试在列中包含特殊文本的单元格值上创建循环 (B:B)：
请找到我的代码

Sub test ()
    Dim rw As Long, Cell As Range
    For Each Cell In Sheets("Work").Range("B:B")
        rw = Cell.Row
        
        If InStr(1, Cell.Value, "ResourcesHIIT4") > 0 Then '
        'If Cell.Value Like "*ResourcesHIIT4*" Then
            Cell.EntireRow.Copy
      
            Sheets("Database").Select
            Range("A1048576").End(xlUp).Offset(1, 0).Select
            Selection.PasteSpecial xlPasteValues
      
            Set r = Sheets("Allocation").Range("A2")
            Do While r.Value <> ""
                Range("C1048576").End(xlUp).Offset(1, 0).Value = r.Value
                Set r = r.Offset(1)
            Loop
        end if
    next 
end sub

我尝试了这 2 种不同的代码，每次宏转到 end if 时：

• If InStr(1, Cell.Value, "ResourcesHIIT4") > 0 Then '
• If Cell.Value Like "*ResourcesHIIT4*" Then

你能帮我知道问题出在哪里吗？

感谢您的帮助