Pues en lugar de...
Código:
If Range("A5") <> "" Then ActiveWindow.SelectedSheets.PrintOut Copies:=1
Pon esto (para hacer estas cosas, lo mejor, es utilizar la grabadora de macros, que es lo que he hecho yo ahora, quitándole algún código que no se necesita)...
Código:
If Range("A5") <> "" Then ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Creo que ya está todo contestado :)
Editado:
Otra opción que puedes utilizar, es definir un rango de impresión. Por ejemplo, con este código, estás marcando como área de impresión desde A1 hasta D15:
Código:
ActiveSheet.PageSetup.PrintArea = "A1:D15"