Inhalte löschen und nicht die kompletten Formate

Private Sub CommandButton1_Click()
Dim rngLoe As Range
Dim rngCell As Range
Set rngLoe = Range("D30:D32")
For Each rngCell In rngLoe
If rngCell.MergeCells Then
rngCell.UnMerge
End If
rngCell.ClearContents
Next
End Sub