Loop Within a Loop

I have a loop I am trying to run within a loop. I keep getting an error on the "loop" of the inside one. Can anyone see anything I'm doing wrong? If you look towards bottom I surround where im getting errors by **.  Any assistance is greatly appreciated. 

'Set variables to sheet info
iRow = 2
strOp = Trim(Right("000" & xlApp.ActiveSheet.Range("A" & iRow).Value,3))
strOrgCust = Right("000000" & Trim(xlApp.ActiveSheet.Range("B" & iRow).Value),6)
strNewCust = Right("000000" & Trim(xlApp.ActiveSheet.Range("C" & iRow).Value),6)
strItem = Right("0000000" & Trim(xlApp.ActiveSheet.Range("D" & iRow).Value),7)
strReasCode = xlApp.ActiveSheet.Range("E" & iRow).Value
strInvNbr = xlApp.ActiveSheet.Range("F" & iRow).Value
strAdjQty = xlApp.ActiveSheet.Range("G" & iRow).Value
strAdjWt = xlApp.ActiveSheet.Range("H" & iRow).value
strAdjPrc = xlApp.ActiveSheet.Range("I" & iRow).value
strSFNbr = xlApp.ActiveSheet.Range("J" & iRow).value
strSplit = xlApp.ActiveSheet.Range("K" & iRow).value
strCRReprice = xlApp.ActiveSheet.Range("L" & iRow).value
strMiscCode = xlApp.ActiveSheet.Range("K" & iRow).value
blStop = False

'Loop through spreadsheet
Do While (False = blStop)

'Ensure the correct OpCo is active
If (strLast <> strOp) Then

'Reset OpCo tracker
strLast = strOp

'Telenet
EMSendKey "<PF10>"
EMSendKey "TN" + "<Field_Plus>"
EMSendKey "??"
EMSendKey "500"
EMSendKey "<Enter>"
EMSendKey "AS" & strOp & "A" + "<Field_Plus>"
EMSendKey "<Enter>"
EMSendKey strUser + "<Field_Plus>"
EMSendKey strPass + "<Field_Plus>"
EMSendKey "<Enter>"

'Ensure correct credentials
EMReadScreen strScreen, 3, 15, 1
If ("CPF" = strScreen) Then
MsgBox "Please validate your credentials - could not access " & strOp
Goto ErrHandler
End If

'Enter through until OpCo screen
Do While ("Systems Utilities" <> strScreen)
EMSendKey "<Enter>"
EMReadScreen strScreen, 17, 1, 7
Loop

'Go into BARM and make neccesary changes
EMSendKey "<PF10>"
EMSendKey "BARM" + "<Field_Plus>"
EMSendKey "SY"
EMSendKey "200"
EMSendKey "<Enter>"

End If


EMWaitCursor 3, 8, 35
EMSetCursor 8, 35
EMSendKey strOrgCust + "<Field_Plus>"
EMSendkey "<PF6>"

'Bad Cust Number
EMReadScreen strMessage, 27, 24, 2
If ("Customer Number is invalid." = strMessage) Then
xlApp.ActiveSheet.Range("Q" & iRow).Value = strMessage
Goto BadCust
End If

EMSendKey "<PF8>"
EMSendKey "<PF6>"
EMSendKey "<PF4>"
EMSendKey "1"
EMSendKey "<Enter>"
EMSetCursor 9, 25
EMSendKey strSFNbr
EMSendKey "<Enter>"
EMSendKey "<PF3>"
EMSendKey "<PF20>"


strLastCust = strNewCust
Do While strLastCust = strNewCust
EMSetCursor 14, 7
EMSendKey strItem + "<Field_Plus>"
EMSendKey strReasCode

If strSplit = "Y" then
EMSendKey "S"
Else
EMSetCursor 14, 49
End If

EMSendkey "<Field_Plus>"
EMSendkey "<Field_Plus>"
EMSendkey "<Field_Plus>"
EMSendkey "<Field_Plus>"

EMSendKey strInvNbr + "<Field_Plus>"
EMSetCursor 16, 5
EMSendKey strNewCust
EMSendKey "<Enter>"

EMReadScreen strMessage, 76, 24, 2

If trim(strMessage) = "" Then
EMReadScreen strCurrPrice, 9, 15, 49
xlApp.ActiveSheet.Range("O" & iRow).Value = trim(strCurrPrice)
If strAdjPrc = trim(strCurrPrice) then
xlApp.ActiveSheet.Range("P" & iRow).Value = "Current Price already in the system. No adjustment needed"
EMSendKey "<PF12>"
GoTo BadCust
End If
Else
If strAdjPrc > 0 then
strFinalPrice = strAdjPrc
EMSetCursor 14, 49
EMSendKey strFinalPrice + "<Field_Plus>"
End If
End If



EMReadScreen strCurrWeight, 9, 15, 59
xlApp.ActiveSheet.Range("N" & iRow).Value = trim(strCurrWeight)
If strCurrWeight > 0 then
strFinalWeight = trim(strCurrWeight) - strAdjWt
EMSetCursor 14, 59
EMSendKey strFinalWeight + "<Field_Plus>"
End If

EMReadScreen strCurrQty, 4, 15, 70
xlApp.ActiveSheet.Range("M" & iRow).Value = trim(strCurrQty)
If strCurrQty > 0 then
strFinalQty = trim(strCurrQty) - strAdjQty
EMSetCursor 14, 70
EMSendKey strFinalQty + "<Field_Plus>"
End If

EMReadScreen strMessage, 8, 4, 14
xlApp.ActiveSheet.Range("P" & iRow).Value = trim(strMessage)

iRow = iRow + 1
Counter = Counter + 1
strOp = Trim(Right("000" & xlApp.ActiveSheet.Range("A" & iRow).Value,3))
strOrgCust = Right("000000" & Trim(xlApp.ActiveSheet.Range("B" & iRow).Value),6)
strNewCust = Right("000000" & Trim(xlApp.ActiveSheet.Range("C" & iRow).Value),6)
strItem = Right("0000000" & Trim(xlApp.ActiveSheet.Range("D" & iRow).Value),7)
strReasCode = xlApp.ActiveSheet.Range("E" & iRow).Value
strInvNbr = xlApp.ActiveSheet.Range("F" & iRow).Value
strAdjQty = xlApp.ActiveSheet.Range("G" & iRow).Value
strAdjWt = xlApp.ActiveSheet.Range("H" & iRow).value
strAdjPrc = xlApp.ActiveSheet.Range("I" & iRow).value
strSFNbr = xlApp.ActiveSheet.Range("J" & iRow).value
strSplit = xlApp.ActiveSheet.Range("K" & iRow).value
strCRReprice = xlApp.ActiveSheet.Range("L" & iRow).value
strMiscCode = xlApp.ActiveSheet.Range("K" & iRow).value

If Counter = 1 and strLastCust = strNewCust then

EMSetCursor 17, 7
EMSendKey strItem + "<Field_Plus>"
EMSendKey strReasCode

If strSplit = "Y" then
EMSendKey "S"
Else
EMSetCursor 17, 49
End If

EMSendkey "<Field_Plus>"
EMSendkey "<Field_Plus>"
EMSendkey "<Field_Plus>"
EMSendkey "<Field_Plus>"

EMSendKey strInvNbr + "<Field_Plus>"
EMSetCursor 19, 5
EMSendKey strNewCust
EMSendKey "<Enter>"

EMReadScreen strMessage, 76, 24, 2

If trim(strMessage) = "" Then
EMReadScreen strCurrPrice, 9, 18, 49
xlApp.ActiveSheet.Range("O" & iRow).Value = trim(strCurrPrice)
If strAdjPrc = trim(strCurrPrice) then
xlApp.ActiveSheet.Range("P" & iRow).Value = "Current Price already in the system. No adjustment needed"
EMSendKey "<PF12>"
GoTo BadCust
End If
Else
If strAdjPrc > 0 then
strFinalPrice = strAdjPrc
EMSetCursor 17, 49
EMSendKey strFinalPrice + "<Field_Plus>"
End If
EndIf


EMReadScreen strCurrWeight, 9, 18, 59
xlApp.ActiveSheet.Range("N" & iRow).Value = trim(strCurrWeight)
If strCurrWeight > 0 then
strFinalWeight = trim(strCurrWeight) - strAdjWt
EMSetCursor 17, 59
EMSendKey strFinalWeight + "<Field_Plus>"
End If

EMReadScreen strCurrQty, 4, 18, 70
xlApp.ActiveSheet.Range("M" & iRow).Value = trim(strCurrQty)
If strCurrQty > 0 then
strFinalQty = trim(strCurrQty) - strAdjQty
EMSetCursor 17, 70
EMSendKey strFinalQty + "<Field_Plus>"
End If

EMReadScreen strMessage, 8, 4, 14
xlApp.ActiveSheet.Range("P" & iRow).Value = trim(strMessage)

EMSendKEY "<Page_Down>"

iRow = iRow + 1
Counter = Counter + 1
strOp = Trim(Right("000" & xlApp.ActiveSheet.Range("A" & iRow).Value,3))
strOrgCust = Right("000000" & Trim(xlApp.ActiveSheet.Range("B" & iRow).Value),6)
strNewCust = Right("000000" & Trim(xlApp.ActiveSheet.Range("C" & iRow).Value),6)
strItem = Right("0000000" & Trim(xlApp.ActiveSheet.Range("D" & iRow).Value),7)
strReasCode = xlApp.ActiveSheet.Range("E" & iRow).Value
strInvNbr = xlApp.ActiveSheet.Range("F" & iRow).Value
strAdjQty = xlApp.ActiveSheet.Range("G" & iRow).Value
strAdjWt = xlApp.ActiveSheet.Range("H" & iRow).value
strAdjPrc = xlApp.ActiveSheet.Range("I" & iRow).value
strSFNbr = xlApp.ActiveSheet.Range("J" & iRow).value
strSplit = xlApp.ActiveSheet.Range("K" & iRow).value
strCRReprice = xlApp.ActiveSheet.Range("L" & iRow).value
strMiscCode = xlApp.ActiveSheet.Range("K" & iRow).value


If Counter = 2 and strLastCust = strNewCust then
Counter = 0
End If

End If

Loop ****THIS IS WHERE I GET MY ERROR**

EMSendKey "<PF13>"

EMWaitCursor 8, 35
EMReadScreen strMessage, 15, 8, 6

If strMessage = "Customer Number" then
GoTo NextRound
strMessage = ""
End If

BadCust:
iRow = iRow + 1
strOp = Trim(Right("000" & xlApp.ActiveSheet.Range("A" & iRow).Value,3))
strOrgCust = Right("000000" & Trim(xlApp.ActiveSheet.Range("B" & iRow).Value),6)
strNewCust = Right("000000" & Trim(xlApp.ActiveSheet.Range("C" & iRow).Value),6)
strItem = Right("0000000" & Trim(xlApp.ActiveSheet.Range("D" & iRow).Value),7)
strReasCode = xlApp.ActiveSheet.Range("E" & iRow).Value
strInvNbr = xlApp.ActiveSheet.Range("F" & iRow).Value
strAdjQty = xlApp.ActiveSheet.Range("G" & iRow).Value
strAdjWt = xlApp.ActiveSheet.Range("H" & iRow).value
strAdjPrc = xlApp.ActiveSheet.Range("I" & iRow).value
strSFNbr = xlApp.ActiveSheet.Range("J" & iRow).value
strSplit = xlApp.ActiveSheet.Range("K" & iRow).value
strCRReprice = xlApp.ActiveSheet.Range("L" & iRow).value
strMiscCode = xlApp.ActiveSheet.Range("K" & iRow).value

NextRound:
'Stop loop if needed
If ("" = Trim(xlApp.ActiveSheet.Range("A" & iRow).Value)) Then
blStop = True
End If

Loop