VBA当条件满足后将所在行的部分单元格复制到另一个工作表

Question

求高手给写一段代码
如果在工作表1的A段中出现明天发送这个文字的话，就将所在行的A2A3A4复制到工作表2的A1A2A3
以上这段话 求高手给写一下代码 谢谢

Answer 1

Sub 复制()
    If Application.CountIf(Range("a:a"), "*明天发送*") Then Range("a1:a3").Copy Sheet2.[a1]
End Sub