Progress Bar Help

[Striker]

I found this Progress Bar on this board here, and would like to incorporate
it into my current code, but can't figure out how to do it. I am thinking
the Max value would have to be LastRow.

Any help is greatly appriciated

~~~~~~~~ProgressBar1~~~~~~~~~~~~~~~~~~
ProgressBar1.Min = 0
ProgressBar1.Max = LastRow

For i = 0 To LastRow
DoEvents
ProgressBar1.Value = i
Next i
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~CURRENT CODE~~~~~~~~~~~~~~~~~~~~~~~~~~
LastRow = Cells(Rows.Count, "A").End(xlUp).Row

Set rng = Range("A2:A" & LastRow)

For Each rCell In rng.Cells
With rCell
.Offset(0, 5).Value = Trim(.Value) _
& Trim(.Offset(0, 3).Value) & Trim(lSerdate) & Trim(lCounter)
sLosdf = .Offset(0, 0)
sLdan = .Offset(0, 1)
sReason = .Offset(0, 2)
sUID = .Offset(0, 5)
sTel =(.Offset(0, 3).Value)

lCounter = lCounter + 1

End With
Next rCell
lCounter = lCounter - 1