Progress bar for macro with loop

I have a button that will trigger this. It's a long macro but this is the part i want to focus on.

                    Dim NextRow As range

                    Set NextRow = wt3.Cells(Cells.Rows.Count, 1).End(xlUp).Offset(2, 0)
                        
			Do Until ctr = 3
                                
                        Dim ocell As range
                        Dim datarg As range
                        
                        On Error Resume Next
                        Set datarg = range("I:I").SpecialCells(xlCellTypeBlanks)
                        
                        If Err Then Exit Sub

                        For Each ocell In datarg
                            If ocell.MergeCells = False Then
                                ocell.EntireRow.Delete
                            End If
                        Next
                        ctr = ctr + 1
                        
                        Loop
                        rge.Select
                        
                        range(Selection, Selection.End(xlDown)).Select
                        range(Selection, Selection.End(xlToLeft)).Select
                        range(Selection, Selection.End(xlToRight)).Select

                        Selection.Copy
                                              
                        NextRow.PasteSpecial xlPasteValues

How will i create a progress bar while that part of macro is running. I already placed ProgressBar1 in the userform.