Skille en makro ad.

Jeg har et VBA eksempel her, som viser en Progress Bar mens der genereres tilfældige tal. Jeg vil gerne erstatte den del af makroen som genererer tallene og erstatte med min egen makro, som gør noget andet. Men hvad skal jeg beholde ?

Sub Test()
'  The UserForm1_Activate sub calls Main
    UserForm1.LabelProgress.Width = 0
    UserForm1.Show
End Sub

Sub Main()
'  Inserts random numbers on the active worksheet
    Dim Counter As Integer
    Dim RowMax As Integer, ColMax As Integer
    Dim r As Integer, c As Integer
    Dim PctDone As Single
   
    If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub
    Cells.Clear
    Application.ScreenUpdating = False
    Counter = 1
    RowMax = 100
    ColMax = 25
    For r = 1 To RowMax
        For c = 1 To ColMax
            Cells(r, c) = Int(Rnd * 1000)
            Counter = Counter + 1
        Next c
        PctDone = Counter / (RowMax * ColMax)
        With UserForm1
            .FrameProgress.Caption = Format(PctDone, "0%")
            .LabelProgress.Width = PctDone * (.FrameProgress.Width - 10)
        End With
'      The DoEvents statement is responsible for the form updating
        DoEvents
    Next r
    Unload UserForm1
End Sub