Macro køres x antal gange afhængigt af indhold i celle

Hej eksperter.

Nedenstående makro kopierer indholdet i række 1 i et bestemt ark, og indsætter det et ønsket sted i et andet ark.

Jeg ønsker at alt efter hvilket tal der står i celle a3 i arket "IT" (tallet må ikke overskride 99), så køres makroen det antal gange.

Makroen ser PT sådan ud:
Sub IndsætNyIT()
'
' Indsæt_række Makro
' Indsætter en tom række
'

'
    Sheets("Skabelon").Select
    Rows("1:1").Select
    Selection.Copy
    Sheets("IT").Select
    Dim rn As Range
    Dim rnNew As Range
    Dim i As Integer
   
    Set rn = Range("D1")
    Set rn = rn.End(xlDown) ' find første indtastning i kolonne D og spring over 2 overskriftslinjer
        Set rnNew = rn.Offset(2, 0).EntireRow
        rnNew.Insert
    For i = 1 To 10
 
      Next
End Sub

Bonus:
Kan der tilføjes noget til koden, således skærmen ikke blinker når makroen kører - da man kort kan se den skifter fane, kopierer indhold, går tilbage til fanen hvori der skal indsættes og derefter indsætter. Evt. i form af en indikator i procesbaren, som kører indtil makroen er færdigafspillet?