Combining two codes into one

Hello,

I am a beginner at Excel VBA, so sorry for stupid questions... I am still learning

I have two different codes. They each work correctly, but I want to combine them into one, to do a bit different task.

This code creates Buttons "Green", and when you press it, it opens window with information, on which row that button is.

Sub CreateButtons()

    Dim i As Long
    Dim shp As Object
    Dim dblLeft As Double
    Dim dblTop As Double
    Dim dblWidth As Double
    Dim dblHeight As Double
        
    With Sheets("Sheet1")
        dblLeft = .Columns("V:V").Left      'All buttons have same Left position
        dblWidth = .Columns("V:V").Width    'All buttons have same Width
        For i = 2 To 20                     'Starts on row 2 and finishes row 20
            dblHeight = .Rows(i).Height     'Set Height to height of row
            dblTop = .Rows(i).Top           'Set Top top of row
            Set shp = .Buttons.Add(dblLeft, dblTop, dblWidth, dblHeight)
            shp.OnAction = "IdentifySelected"
            shp.Characters.Text = "Green"
        Next i
    End With
   
End Sub

Second code is for changing color of the row. I assign it to the button. And then row color changes to green or back to normal, by the push of that button.

Sub GREEN()
Select Case Range("B2:G2,O2:R2,T2:U2").Interior.ColorIndex
    Case xlNone
        Range("B2:G2,O2:R2,T2:U2").Interior.ColorIndex = 43
    Case Else
        Range("B2:G2,O2:R2,T2:U2").Interior.ColorIndex = xlNone
    End Select
End Sub

The problem is, that I need button for every row. And I have around 1000 rows...
So, could you please help me to combine these two codes into one?
I need that every row would have a button, and that row color could be changed by pressing that button. Also, from the first code, I dont need tat it would pop up a window with row number information.


Thanks in advance