Excel VBA 将特定单元格复制并粘贴到另一个工作表

Question

我想看看一个特定的单元格是否是我期望的值，如果是，我想将它粘贴到另一张纸上。但是我的代码不知何故出错了。
这是我的代码:

Private Sub CommandButton1_Click()

    Sheets("Sheet3").Select
    If Cells(2,6).Value == 25 Then
        Cells(2, 6).Select
        Selection.Copy

        Sheets("Sheet1").Select
        Cells(4, 1).Paste
    End If

End Sub

Answer 1

Private Sub CommandButton1_Click()
    With Sheets("Sheet3")
        If .Cells(2, 6).Value = 25 Then
            .Cells(2, 6).Copy Sheets("Sheet1").Cells(4, 1)
        End If
    End With
End Sub