No me funcionan la macros. Puntualización

Hice un par de consultas que me fueron respondidas enseguida, pero la cuestión es que cuando probé las macros no me funcionaban. No sé si para cada orden que inserte en VBA tengo que abrir "sub" o no.

Tengo estas tres "macros". El orden es 1, 3, 2, en una misma hoja. El primer macro me va bien, pero el de convertir la hoja de excel a PDF y guardarlo en una carpeta concreta no me funciona y la de limpiar tampoco. ¿Qué hago mal? Tengo excel 2010.

He hecho una factura casera y lo que quiero es que me incremente el número de la factura automáticamente (cosa que hace si le digo que sí), que me guarde una copia en PDF en una carpeta concreta y que la hoja de excel quede limpia menos las casillas en las que tengo fórmulas.

Por otra parte, para insertar la descripción de los productos combino celdas y entonces las celdas de cantidad y precios me quedan descuadradas. ¿Podría hacer algo con esto?

Gracias,

Private Sub Workbook_Open()
pregunta = MsgBox("Desea incrementar", vbYesNo)
If pregunta = vbYes Then
Range("B9").Value = Range("B9") + 1
End If
End Sub

Sub limpiaHoja()
'x Elsamatilde
'evita error al intentar borrar celda bloqueada
On Error Resume Next
'recorre el rango ocupado y solo borra aquellas celdas desbloqueadas
For Each cd In Range("A1:D5")
    cd.Value = ""
Next cd
End Sub

'exportar como PDF
ruta = ThisWorkbook.Path    'aquí es la ruta del libro activo
nbrePDF = [D4]              'celda donde se encuentra el nombre a asignar
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ruta & "\" & nbrePdf, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False