akelsey

А оно в итоге останавливается до сорокового столбца где-то... остальной хвост не копирует.

For row_port = 2 To row_port_end
    For row_abc = 2 To row_abc_end
      On Error GoTo ErrHandler
        val1 = Int(portion.Cells(row_port, 6).Value)
        val2 = Int(abc.Cells(row_abc, 5).Value) 
        If  val1  =  val2 Then Call any_do
    Next row_abc
Next row_port
Exit Sub
:ErrHandler
  val1=0
  val2=0
Resume Next