chiamando Range.SpecialCells in errore di richiesta di vbs "non riesce a trovare i dati che stai cercando"

Sto utilizzando la seguente vba per cercare la cella non vuota nelle righe:

  Imposta inputItems = inputDataWorkSheet.Range (inputStartColName & endProductRow & ":" & inputEndColName & endProductRow)
 Imposta nonEmptyCells = inputItems.SpecialCells (xlCellTypeConstants) 
 per each nonEmptyCell in nonEmptyCells
     debug.print nonEmptyCell.address
 Il prossimo 

Funziona bene, tuttavia, quando chiamano Range.SpecialCells in vbs, richiede il seguente messaggio di errore:

  non riesce a trovare i dati che stai cercando 

Ecco il codice vbs:

  Imposta inputItems = inputDataWorkSheet.Range (inputStartColName & endProductRow & ":" & inputEndColName & endProductRow)
 Imposta nonEmptyCells = inputItems.SpecialCells (2) 'where 2 media xlCellTypeConstants

 per each nonEmptyCell in nonEmptyCells
     WScript.StdOut.WriteLine nonEmptyCell.address
 Il prossimo 

Ho modificato il codice come segue:

 su errore riprendere successivamente
 Imposta inputItems = inputDataWorkSheet.Range (inputStartColName & endProductRow & ":" & inputEndColName & endProductRow)
 Imposta nonEmptyCells = inputItems.SpecialCells (2) 'where 2 media xlCellTypeConstants

 per each nonEmptyCell in nonEmptyCells
     WScript.StdOut.WriteLine nonEmptyCell.address
 Il prossimo 

Richiede "errore di syntax", mi dispiace dirmi come risolverlo?

Grazie mille