كود ترحيل بيانات

Sub Test()

    Dim chk As CheckBox, r As Long, lrow As Long

    lrow = Sheets(2).Range("C" & Rows.Count).End(xlUp).Row + 1

    For Each chk In Sheets(1).CheckBoxes

        If chk = 1 Then

            r = chk.TopLeftCell.Row

            Sheets(2).Range("C" & lrow).Resize(, 2).Value = Sheets(1).Cells(r, 2).Resize(, 2).Value

            lrow = lrow + 1

        End If

    Next chk

End Sub