Count the total number of plan in a row

I want to load the plan number in cell A1 to "until there is no more plan" in my Sheet3. My macro will give me 4 plan loaded, but in fact, there is only 3 plans!

Where is the fix?

Thanks

Sub TestLoop() ' Main macro to be run

Set rngList = wsSheet3.Range("A3:Z" & wsSheet3.Cells(wsSheet3.Rows.Count, 1).End(xlUp).Row)

For lngSrc = 1 To rngList.Rows.Count
MsgBox rngList.Cells(lngSrc, 1)
Next lngSrc

MsgBox lngSrc & " plan loaded! ", vbInformation, "Process Complete"

End Sub

Book1.xlsm

Good to know! Thanks!