Boton para imprimir, guardar y aumentar numero de consecutivo despues de impresion

Nuevamente recurro a su conocimiento necesito crear un boton que me imprima el area de impresion que es de la hoja1 A1:H51 en a3 se debe de incrementar el consecutivo a +1 y me lo guarde en la hoja 2 este es el codigo que tengo

'codigo creado por la experta elsa matilde

Sub impresión()

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

'incrementa el consecutivo

ActiveSheet.Range("E3").Value = ActiveSheet.Range("E3").Value + 1

End Sub

codigo grabado con la grabadora de macros por un servidor

Sub Macro8()
'
' Macro8 Macro
'
Application.ScreenUpdating = False

Sheets("Hoja1").Select
Range("B5").Select
Selection.Copy
Sheets("Hoja2").Select
Range("A6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Hoja1").Select
Range("B6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Hoja2").Select
Range("B6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Hoja1").Select
Range("F5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Hoja2").Select
Range("C6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Hoja1").Select
Range("F6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Hoja2").Select
Range("D6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Hoja1").Select
Range("F9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Hoja2").Select
Range("E6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Hoja1").Select
Range("B13").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Hoja2").Select
Range("F6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Hoja1").Select
Range("F13").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Hoja2").Select
Range("G6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Hoja1").Select
Range("E3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Hoja2").Select
Range("H6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Hoja1").Select
Range("E29").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Hoja2").Select
Range("K6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Rows("6:6").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A6").Select
Sheets("Hoja1").Select
Range("B6").Select
Selection.ClearContents
Range("F5").Select
Selection.ClearContents
Range("F6").Select
Selection.ClearContents
Range("F9").Select
Selection.ClearContents
Range("B13").Select
Selection.ClearContents
Range("F13").Select
Selection.ClearContents
Range("B6").Select
End Sub

El codigo de la experta elsa matilde esta asignado a un boton, y la grabacion de la macro a otro boton espero haber sido claro en mi explicacion espero su respuesta