I've created the following code which copies values to cells if the value in C2 is greater than 0. I'd like to know if there are any simplier ways to achieve the same result maybe using a function in a cell

Private Sub CommandButton1_Click()

If Worksheets("Calc").Range("c2") > 0 Then

Worksheets("Calc").Range("e2") = Worksheets("Calc").Range("a2")

Worksheets("Calc").Range("f2") = Worksheets("Calc").Range("c2")

End If
End Sub