Macro para limpiar contenido y formato

Buenas tardes, tengo una macro que me limpia solo contenido en una hoja pero quiero modificarla para que limpie contenido y formato, anexo la macro que tengo actual

Sub Limpiar()
Dim Limpiar As String
Limpiar = MsgBox("¿Deseas limpiar los campos de la busqueda?", vbYesNo, strTitulo)
If Limpiar = vbYes Then
With ActiveWorkbook.Sheets(1)
.Range("A3:P5000").ClearContents
.Range("D1").Value = ""
End With
Else
End If
'
End Sub