如何在VBA中没有1004错误？

Question

当我运行宏时，它在执行时会生成错误1004，调试时的代码正确运行并且不会生成任何错误（我直接运行该错误时只会遇到该错误）

这是执行会计结余的宏

For Each celda In Sheets(universoneteado).Range("B1:" & Sheets(universoneteado).Range("B1").End(xlDown).Address(0, 0))
    celdavalue = celda.Value2

contador = Application.CountIf(Sheets("Cuentas utilizadas").Range(PRIMERO & ":" & ultimo), celda.Value2)

For i = 1 To contador


 Set rangoencontradoRange = Nothing

 Set rangoencontradoRange = Sheets("Input Entregable").Range(PRIMERO & ":" & ultimo).Find(what:=celdavalue, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
  rangoencontrado = rangoencontradoRange.Row
                    puntero2.EntireRow.Value2 = Sheets(universo).Rows(rangoencontrado).Value2
                    puntero4.EntireRow.Value2 = Sheets("Cuentas utilizadas").Rows(rangoencontrado).Value2
                    puntero4.EntireRow.Interior.ColorIndex = 15
                    Sheets("Cuentas utilizadas").Rows(rangoencontrado).ClearContents
                    Set puntero2 = puntero2.Offset(1, 0)
                    Set puntero4 = puntero4.Offset(1, 0)

Next i

Next

我需要以下行：

pointer4.EntireRow.Value2 = Sheets("Accounts used").Rows(range found).Value2

要复制值，但会在执行时间上产生错误