VBA。 在列中search一个值X，并在另一个表格中复制具有X和以下行的一部分行

我正在学习vba，我坚持这个：

每次单击button时，都会有一个button在A列（工作表1）上移动“X”（文本）。

那么现在我想让这个button也能够复制“X标记”行和下面四个行的一些列（B，C，D，F），并将其粘贴到sheet2和sheet3上。