vba delete all used rows and checkboxes in that row?

I am using the following code to delete all used rows in my spreadsheet.

Sub Clear()
With ActiveSheet
    .Rows(13 & ":" & .Rows.Count).Delete
End With
End Sub

This works fine and deletes the rows as you might expect. However, in each of my rows I have a checkbox and when the rows are deleted all but 1 checkbox is deleted.

It seems the last checkbox is being pushed up to the row above my delete row range. Please can someone show me a way to make sure all checkboxes are being deleted when I delete all rows?

Thanks