Error 1004 en tiempo de ejecución Error definido por la aplicación o el objeto

En esta macro si la ejecuto desde el botón en su hoja todo ok, pero si abro el libro directamente o desde otro libro me da error, Error 1004 en tiempo de ejecución Error definido por la aplicación o el objeto

Sub Copiar_Pega()

    Set H1 = Sheets("Resultados")

    Set h2 = Sheets("Resultados QUINIELA")

    celda = "A1"

    '

    grupo = Val(h2.Range(celda).Value)

    u = Range("B" & Rows.Count).End(xlUp).Row

    cuantos = WorksheetFunction.CountBlank(Range("B2:B" & u)) + 1

    Select Case grupo

        Case Is > cuantos, "", 1, 0: n = 1

        Case Else: n = grupo

    End Select

    ini = 2

    vez = 1

    For I = 2 To u + 1

        If Cells(I, "B") = "" Then

            If vez = n Then

                fin = I - 1

                Exit For

            Else

                vez = vez + 1

                ini = I + 1

            End If

        End If

    Next

    '

    h2.Range("B" & ini & ":E" & fin).Copy H1.Range("B3")

    If n + 1 > cuantos Then sig = 1 Else sig = n + 1

    h2.Range(celda).Value = sig

    Sheets("Resultados").Select

      Range("H8").Select

End Sub

Doy a depurar y me da el error en esta linea

h2.Range("B" & ini & ":E" & fin).Copy H1.Range("B3")

Cuando se abre el libro esta la llmada a la macro desde thisworkbook

Private Sub Workbook_Open()

Call Copiar_Pegar

End Sub

Aaa... Cuando salta el error Finalizar o Depurar, le doy a finalizar la macro acaba ejecutándose ok