Boa tarde Marcelo

Seja bem vindo ao fórum!

Você postou no local errado, aqui é exclusivo para fórmulas e funções.

Estou movendo teu tópico para o sub fórum VBA & Macros

Um abraço.

Boa noite!!

Use ...

Sub CopiarColar_AleVBA()
    Dim Ws1     As Worksheet
    Dim Ws2     As Worksheet
    Dim Dest    As Range
     
    Set Ws1 = Sheets("Controle diário")
    Set Ws2 = Sheets("Controle mensal")
    Set Dest = Ws2.Range("B2").End(xlDown).Offset(1)
     
    Ws1.Range("B4:G5").Copy
    Dest.PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    Ws1.Range("B4:C5,G4:G5").ClearContents
End Sub

Por favor ao postar a mesma dúvida em outro fórum, indique a postagem cruzada!!!

Att

Boa tarde!!

Veja o anexo..