Copying Rows Represented By Checked Checkboxes

Hi guys,

After doing some reading within the forum I was able to get to the point to where I'm at.

I Currently I have a table with a list of products and checkboxes besides each item, where if the checkbox is checked, it will copy the whole row to Sheet1. As shown below:

2017-01-02_15-59-37.png 2017-01-02_16-03-37.png

I want to be able to delete a row after I uncheck a particular item, if I change my mind.

The formatting after it has been copied to my destination sheet is also messed up.

I have attached the workbook if needed. I'm using a Private Sub for each of the Checkbox, if selected.

Bonus help: If it all possible, I would like to have the items that are checked, to show on the right had side of my items, within the same sheet, as shown below:

2017-01-02_16-10-37.png

Thank you in advance for any help provided. If there is a better way to do this, I'm open to suggestions as well, I'm no expert in the matter.

Perfect Mike, that works.

Is it possible to have that same data besides (to the right hand side) the main table, within the Consumables worksheet?

pic.png

Excellent Mike, thank you so much for your help!!

A macro to check all checkboxes at one time and copy the info in each row...

Sub CopyCheckedItems()
    
    Dim obj As OLEObject
    Dim rngBox As Range
    Dim vData As Variant
    Dim x As Integer
    
    Worksheets("Sheet1").Range("B2:E100").ClearContents
    With Worksheets("Consumables")
        For Each obj In .OLEObjects
            If TypeName(obj.Object) = "CheckBox" Then
                If obj.Object.Value = True Then
                    x = x + 1
                    Set rngBox = .Range(obj.TopLeftCell.Address).Offset(0, 1).Resize(1, 4)
                    vData = rngBox
                    Worksheets("Sheet1").Cells(x + 1, 2).Resize(1, 4) = vData
                End If
            End If
        Next obj
    End With
    
End Sub

Thanks Dangelor, although is not what I'm looking for, I appreciate you taking the time to help me.

Thanks Dangelor, although is not what I'm looking for, I appreciate you taking the time to help me.