Primeira coisa a fazer é disponibilizar a planilha com alguns dados de exemplo isso facilita conseguir ajuda.

Não entendi pq as 7:08 nao pode ser ao abrir a planilha?

Ate pq o codigo só sera executado se a planilha estiver aberta.

Bom dia,

a planilha tem o tamanho de 3mb não consigo anexar aqui, a planilha fica aberta 24 horas nos 3 turno de trabalho temos que enviar as informações da planilha no fechamento do terceiro turno que é entorno das 7:08, o primeiro turno assume o setor 07:20 e as informações da planilha é apagada para inclusão de novos dados de trabalho.

e como não sou o unico a realizar o fechamento algumas pessoas esquece de copiar os dados e essas informações são perdidas por isso de copiar automático as 07:08, copiar na próxima linha vazia

Public dTime As Date
Sub cch()
  Application.OnTime TimeValue([A2].Text), "CopiaA1"
  Application.OnTime dTime, "CopiaA1"
End Sub

Sub CopiaA1()
  [A3] = [A1]
End Sub

tenho essa sequencia onde A2 tem a hora que é para copiar e colar mas não consigo fazer para copiar em uma aba as células e colar na outra aba

Alguém pode me dar alguma ideia de como realizar essa tarefa

Tente esse Cod e veja se dá Certo.

Adicione um Módulo à Planilha e teste esse código nele.

Public Sub Copia()
     Sheets("Plan1").Range("B3").Copy 'Seleciona a Planilha e a Célula e Copia
     Sheets("Plan2").Activate 'Ativa a Planilha que receberá a Colagem
     Range("B1").Select 'Seleciona a Célula que receberá a colagem"
     ActiveSheet.Paste 'Faz A Colagem"
     
     Application.CutCopyMode = False
     
     Call Hora_deCopiar
End Sub

Public Sub Hora_deCopiar()
 
 Application.OnTime TimeValue("13:19:00"), "Copia" ' Só alterar para o horário desejado


End Sub

Alguem pode me dizer pq esse erro, eu tirei a parte de proteger e desproteger a planilha por senha ai não deu mais o erro mas eu queria deixar com senha..

nessa rotina me atendeu, mas da esse erro ai (MÉTODO PASTESPECIAL DA RANGE FALHOU) e está colando só 3 linha depois disso não cola mais, adicionei on error resume next, não sei se tem outra forma

Private Sub Copiar()
On Error Resume Next
UltimaLinha = Sheets("Banco de Dados").Cells(Rows.Count, 1).End(xlUp).Row 
Sheets("Produção").Select
Range("am6:bh6").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Banco de Dados").Visible = True
Sheets("Banco de Dados").Select
Sheets("Banco de Dados").Unprotect "Cia2018"
Cells(UltimaLinha + 1, 1).Select 
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Range("a1").Select
Sheets("Banco de Dados").Protect "Cia2018"
Sheets("Banco de Dados").Visible = False
Sheets("Produção").Select
Range("a3").Select
   Application.CutCopyMode = False 
End Sub
Public Sub Hora_deCopiar()
Application.OnTime TimeValue("04:49:00"), "Copiar" 

Adicionei na pasta de trabalho
Workbook Open
Call Hora_deCopiar

Provavelmente seu código esta tentando gravar algum dado na planilha protegida, já que como você disse quando retirou a parte de proteger e desproteger o erro não aconteceu.

Sim, acho que deu erro pois eu testei muito rápido ai não tinha dado o tempo de proteger e ocultar. Acho que se isso!