How to place and define progress bar with percentage

Hi,

My VBA code will copy and paste several workbooks into master list.

the cells to be pasted will be starting on cells(13,9) until cells(13,501) or Range("I13:SG13")

while the max row will be determined by Cells(Rows.Count, "F").End(xlUp).Row


Here is the progress bar code I found in internet, maxrow/column has been changed to my requirement but how to place my VBA code to this script? the one highlighted in red, I guess it

Sub ShowProgressInStatus()
    Dim Percent As Integer
    Dim PercentComplete As Single
    Dim MaxRow, MaxCol As Integer
    MaxRow = Cells(Rows.Count, "F").End(xlUp).Row
    MaxCol = 501
    Percent = 0
    For irow = 13 To MaxRow
        For icol = 9 To MaxCol
                
             Worksheets("Sheet1").Cells(irow, icol).Value = irow
        Next
        PercentComplete = irow * icol / (MaxRow * MaxCol)
        Application.StatusBar = Format(PercentComplete, "0%") & " Completed"
        DoEvents
    Next
    Application.StatusBar = ""
End Sub