Selezione tramite flag e copia

Option Explicit

Sub CopiaTesto()

    Dim chkbx  As CheckBox
    Dim r      As Long
    Dim LR     As Long

    r = 2                                                       'i check iniziano da riga 2
    For Each chkbx In ActiveSheet.CheckBoxes                    'cicla tutti i CheckBox
        If chkbx.Value = 1 Then                                 'se il check ? selezionato
            With Worksheets("Foglio2")
                LR = .Range("B" & Rows.Count).End(xlUp).Row + 1 'rileva la prima riga libera nel Foglio2
                If LR < 3 Then LR = 3                           'la prima riga deve essere la 3
                .Range("B" & LR & ":B" & LR) = Worksheets("Foglio1").Range("B" & r).Value 'copia da Foglio1
            End With
        End If
        r = r + 1                                               'incrementa la riga dei check/testo
    Next
    
End Sub