Copy and Paste Values relative to Macro Button

[jyu27]

Hello, I'm trying to create 1 macro button that will copy the cell to the right of the button and paste it into the cell that to the left of the button. Trying to figure this out but having some trouble getting the macro code.

For example. I want the button in B1 to copy "test" from C1 and paste values to A1

The same button located in B2 would copy "apples" from C2 and paste values to A2

Thank you!

 

[NoSparks]

Try this, assigning it as the macro for each button

Sub RunForButs()
  
    Dim where As String, rng As Range
    
    where = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Address
    Set rng = Range(where)
    rng.Offset(, -1).Value = rng.Offset(, 1).Value

End Sub