XL 2016 Répéter une macro en boucle

Bonsoir à tous,
je me connecte et sollicite votre aide après quelques heures carrées ne menant pas à grand chose.
j'ai créer une séquence avec l'enregistreur de macro et je souhaiterais la répéter un grand nombre de fois.
J'ai une mesure électrique qui est relevé toutes les 10 min pendant 365 jours. Les données cette année ne sont pas dans la même forme que les années précédentes et je ne peux pas les comparer. Avec l'enregistreur j'ai créer une boucle pour les 2ières heures et je souhaiterais avec une macro faire le reste.
pourriez-vous m'aider ? Je colle ci-dessous la séquence des 2ières h:
Je vous remercie infiniment par avance de votre soutien

Sub Macro3()
'
' Macro3 Macro
'
'
Range("A3:A26").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 90
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Selection.UnMerge
Range("A3").Select
Selection.Copy
Range("A4:A26").Select
ActiveSheet.Paste
Rows("4:8").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("C2:G2").Select
Selection.Copy
Range("A3").Select
Application.CutCopyMode = False
Selection.Copy
Range("A4:A8").Select
ActiveSheet.Paste
Range("C2:G2").Select
Application.CutCopyMode = False
Selection.Copy
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("D3:H3").Select
Application.CutCopyMode = False
Selection.Copy
Range("C4").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Columns("A:A").Select
Application.CutCopyMode = False
With Selection
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.ReadingOrder = xlContext
End With

Selection.UnMerge
Range("A9").Select
Selection.Copy
Range("A4:A26").Select
ActiveSheet.Paste
Rows("10:14").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("C2:G2").Select
Selection.Copy
Range("A9").Select
Application.CutCopyMode = False
Selection.Copy
Range("A10:A14").Select
ActiveSheet.Paste
Range("C2:G2").Select
Application.CutCopyMode = False
Selection.Copy
Range("B10").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("D9:H9").Select
Application.CutCopyMode = False
Selection.Copy
Range("C10").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Columns("A:A").Select
Application.CutCopyMode = False
With Selection
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.ReadingOrder = xlContext
End With

End Sub