Contador automatico en excel Juankrojas

Como poner un contador automatico en excel para que cambie con cada una de nuestras hojas



link: https://www.youtube.com/watch?v=tT1p6-wxR94&feature=youtu.be


Este es el codigo para VBA

Sub nuevaremision()
'
' nuevaremision Macro
'

'
Range("B14:B18").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=18
Range("A2434").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=9
Range("B35:E35").Select
ActiveWindow.SmallScroll Down:=-42
ActiveSheet.Select
ActiveSheet.Copy After:=ActiveSheet
ActiveWindow.SmallScroll Down:=-15
Range("B15").Select
ActiveSheet.Range("e5").Value = Range("e5").Value + 1
End Sub