Maybe you should clear contents at the start of cmdSearch_Click

Worksheets("Print").Range("B5:G1000").ClearContents