Botón con macro que me borre el contenido de una fila

[Hola 

valora la respuesta para finalizar

Sub borra_contenido()
'
'para borra2 fila 2
Rows("2:2").ClearContents
End Sub

para borrar de la fila 2 al 10 

Sub borra_contenido()
'
'para borra2 fila 2 al 10
Rows("2:10").ClearContents
End Sub

Hola estoy copiando ese código y no meda para borrar

Cómo no indicaste que filas hay que borrar su contenido, te puse ejemplos

a que pena es columnas de la a13 hasta a45 

mil gracias por responder

Para finalizar machuca Excelente.. saludos!

¿Estoy confundido pides que borre rango o fila? Pero te paso para que pruebes para ambos

'borra el contenido de toda la fila

Sub borra_contenido1()
'
'borra el contenido de toda la fila
Rows("13:45").ClearContents
End Sub

'borra el contenido del rango

Sub borra_contenido2()
'
'borra el contenido del rango
'
Range("A13:A45").ClearContents
End Sub

que pena cuando tengo la d13 y d14 combinadas ¿como puedo hacerlo?