Creating shopping list dynamically

Hey I'm new here, with online shopping I'm trying to create a spreadsheet for my online grocery shopping

first thing is trying to make an easy to use weekly shopping list

second just want to play around with excel as I'm not very good with it

in my head i would like spreadsheet one which would have a list of my grocery items with a tick box. I tick the item i need to buy that shopping

spreadsheet 2 just shows all the items i have selected

any help appreciated, point me in the right direction

Option Explicit

Sub Test()

Dim Cell As Range

Sheets("Sheet2").UsedRange.ClearContents

With Sheets(1)
    ' loop column B untill last cell with value (not entire column)
    For Each Cell In .Range("B1:B" & .Cells(.Rows.Count, "B").End(xlUp).Row)
        If Cell.Value <> "" Then
             ' Copy>>Paste in 1-line (no need to use Select)
            .Rows(Cell.Row).Copy Destination:=Sheets(2).Rows(Cell.Row)
        End If
    Next Cell
End With

blnkrowdel

Sheets("Sheet2").PrintOut

End Sub

Sub blnkrowdel()
Dim wsCH As Worksheet
Dim lRow As Variant
Set wsCH = Sheet2

With wsCH
        lRow = .Range("B" & .Rows.Count).End(xlUp).Row
        .Range("B1:B" & lRow).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    End With
    
End Sub

Sub ClearColBSht1()

Dim Cell As Range

Application.ScreenUpdating = False

With Sheets(1)
    ' loop column B untill last cell with value (not entire column)
    For Each Cell In .Range("B1:B" & .Cells(.Rows.Count, "B").End(xlUp).Row)
         Cell.Value = ""
    Next Cell
End With

Application.ScreenUpdating = True

End Sub

There is more code in the SHEET1 module that creates the CHECK MARK in Col B, when a cell in Col B is double-clicked.