If Cell says "TRUE" then add text to next blank row

[Jessica553]

Hi all, I am trying to develop a risk assessment matrix for work and just can't seem to find an answer. I'm very new to VBA and Macros but I want to learn.
Basically, when a checkbox is ticked, we want the corresponding title of that 'risk' to be put into the Description in H24 below. I have created Sheet 2 (pictured) to hold all the checkbox values as I figured this would make it easier to grab the information of the TRUE value and the title that I want to keep.
I am guessing it has something to do with an if/then formula somehow tied in with a VBA code to find the next row but I just can't figure it out.
Any assistance is much appreciated!

 

[QuestionBaker]

Are you using form controls check boxes?

 

[QuestionBaker]

I couldn't figure out a method to identify the location of the check box, but was able to identify if a checkbox is ticked or not, and add it in H column

Sub Macro2()
    Dim cb As CheckBox
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim i As Integer
    i = 24
    Set wb = ThisWorkbook
    Set ws = wb.Sheets("Sheet2")
    For Each cb In ws.CheckBoxes
        If cb.Value = xlOn Then
            ws.Range("H" & i) = cb.Text
            i = i + 1
'        ElseIf cb.Value = xlOff Then
'            Debug.Print (cb.BottomRightCell.Address)
        End If
    Next cb
End Sub

 

[Jessica553]

Are you using form controls check boxes?

Yes they are the developer check boxes. I have assigned them all to individual cells in sheet 2

 

[Jessica553]

I couldn't figure out a method to identify the location of the check box, but was able to identify if a checkbox is ticked or not, and add it in H column

Sub Macro2()
    Dim cb As CheckBox
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim i As Integer
    i = 24
    Set wb = ThisWorkbook
    Set ws = wb.Sheets("Sheet2")
    For Each cb In ws.CheckBoxes
        If cb.Value = xlOn Then
            ws.Range("H" & i) = cb.Text
            i = i + 1
'        ElseIf cb.Value = xlOff Then
'            Debug.Print (cb.BottomRightCell.Address)
        End If
    Next cb
End Sub

I don't really know what any of that means but I appreciate the help! I will try to make it fit. Thank you