VBA Automatically Adding a Checkbox to List

Public Sub Test()`
Dim ws As Worksheet
Set ws = Worksheets("Sheet3")
lastRow = ws.Range("A" & Rows.Count).End(xlUp).Row + 1


For Each cell In ws.Range("A" & lastRow).Offset(0, 1)
With ActiveSheet.CheckBoxes.Add(cell.Left, _
     cell.Top, cell.Width, cell.Height)
     .LinkedCell = cell.Offset(, 0).Address(External:=T)
     .Caption = Range(.LinkedCell).Row
    .Value = Range(.LinkedCell).Value
    .Placement = XlPlacement.xlMoveAndSize
End With
ws.Range("a" & lastRow).Value = lastRow
Next
End Sub