Code clear contents

Hello,

I'm using this code to clear contents in a spreadsheet:

Sub clearunprotectedcells()
Dim cell As Range
Range("A12:F14").Select
For Each cell In Selection
If cell.Locked = False Then
cell.ClearContents
End If
Next
End Sub

The code works if I do not use merged cells, is there any away i ca modify my code to clear contents even if i have some merged cells.

Thanks