Adding points with an offset from the active cell

[Enocai]

I am trying to create a scoring sheet for a game we play at work. There are 4x different types of ways they get points and the only way I know to do this currently is to create 4x buttons for every row that add points to the appropriate column. If I can just get the base code I can make it work for all 4 buttons I will be setting macros on.

Ideal Summary:
If I have Cell A1 selected (ActiveCell) I want to hit the button and add +1 to B1 and +3 to C1
respectively
If I have Cell A4 selected (ActiveCell) I want to hit the button and add +1 to B4 and +3 to C4

 

[jtdewhurst]

This works

    rw = ActiveCell.Row
    cl = ActiveCell.Column
    Sheets("Sheet1").Cells(rw, cl + 1).Value = Sheets("Sheet1").Cells(rw, cl + 1).Value + 1
    Sheets("Sheet1").Cells(rw, cl + 2).Value = Sheets("Sheet1").Cells(rw, cl + 2).Value + 3

 

[Enocai]

Worked like a frickin charm!!!

Thank you JtDewHurst!!!!!