Macro que guarde y envíe a imprimir.

hola expertos tengo un problema con una macro. Necesito que en X celda si existe un 1 me mande a imprimir la oja pero que guarde los cambios el 1 es como una condición de enviar o no enviar la impresión este lo lo controlo con un software de scada p sim es un pequeño trabajo de la escuela pero no se mucho sobre macros pero si sobre vb. Pero que todo sea automático ya que lo que ee echo asta que doy un clic toma la decisión esta es una parte de mi código.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'prepara la hoja para la impresión
With ActiveSheet.PageSetup
.PrintArea = ""
.Orientation = xlPortrait 'xlLandscape
.PaperSize = xlPaperA4 'hoja A4
.BlackAndWhite = False 'incluir colores o no
.FitToPagesWide = 1 'reduce el tamaño de la hoja (ancho)
.FitToPagesTall = 1 'reduce el tamaño de la hoja (alto)
.CenterHorizontally = False 'centrar horizontalmente
.CenterVertically = False 'centrar verticalmente
End With
If Range("A1").Text = 1# Then
'imprimir las celdas seleccionadas (2 copias)
ActiveSheet.PrintOut copies:=1, collate:=True
End If
End Sub

pero lo que necesito es que sea automático y guarde los cambios y la mande a imprimir. Cada cierto tiempo o ejemplo: si existe un 1 y los valores se an modificado guarde y después imprima. Gracias espero contar con su ayuda.