String 如果找到部分文本单元格，则复制excel VBA

我很难写出VBA

附上的图片应该有助于了解我需要做什么

问题:

a） 如果在第1页B列中发现文本“FAA”，则将同一行中的单元格C复制到第2页a列

那么

---

b） 删除Sheet1的b行和C行中的单元格。

是否确实要删除b列和C列单元格，或仅清除其内容？是否确实要删除b列和C列单元格，或仅清除其内容？我希望删除b列和C列单元格，列A将保持不变…然后只需注释掉或删除代码中最后一行，然后以@fotodj结束在最后一行中的偏移量（，1）在最后一行中，我无法计算出？

cel.offset（，1）.Value

？.Range（.Range（“B1”），.Range（“A1”）.End（xlDown）。offset（，1））-那一部分我希望删除B列和C列单元格，A列将保持不变……然后只需注释掉或删除代码中最后一行，然后在

结束时使用
@fotodj在最后一行中，偏移量（，1）如何工作，我无法理解？
cel.offset（，1）.Value
？.Range（.Range（“B1”），.Range（“A1”）.End（xlDown）.偏移量（，1））。-那部分
With Worksheets("Sheet1")

    For each cel in .Range(.Range("B1"),.Range("B1").End(xlDown))

       If cel.Value Like "*FAA*" Then 
           Worksheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1).Value = cel.Offset(,1).Value
          cel.Resize(1,2).ClearContents

       End If

    Next

   'if you wish to remove the rows entirely use this code, if not comment out   
   .Range(.Range("B1"),.Range("A1").End(xlDown).Offset(,1)).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

End With