Как я могу сделать, чтобы не было 1004 ошибки в VBA?

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

чтобы скопировать значения, но генерируется ошибка во время выполнения