How To Place VBA Code In Progress Bar With Percentage

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

Code:
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

[code]....