Insert Text In Cells Based On Another

I have an excel sheet that looks like this:

IMAGE 1

(The sheet holds more data but not needed for this)

I have two buttons; “BUY” and “SELL”

I need a vba-code that inserts either “BUY” or “SELL” in row 6 (buy/sell) and insert a text (code) in row 7 depending in this information. When I push either “Buy” or “Sell”

IMAGE 2

So.. When I push the button “SELL” (already made) the action “Switch” should get “Sell” and actioncode “SO”, and “Redem1” and “Redem2” should get “Sell” and actioncode “RA” and “RN”

So.. When I push the button “BUY” (already made) the action “Switch” should get “Buy” and actioncode “SI”, and “Subsc” should get “Buy” and actioncode “SA”

(When the button is pushed I have a autofilter that “hides” either all the “sell” or all the “buy”)

IMPORTANT: There is NO range!! the list goes on, and changes so I need it to work on x amount of rows. !