Boa tarde.

Vou dar um conselho que também dei a outra pessoa, ao invés de inserir registro por registro, porque não manter na base somente os dados de quando o funcionário não realizou as horas normais.

+/- conforme o exemplo em anexo!

Se eu entendi vc quer inserir os registros uma abaixo do outro é isso, a cada funcionario vc quer colocar todos os funcionarios um abaixo do outro para ter um relatorio unico que sera feito o seu relatorio de horas extras. É isso?

É isso Prudêncio.

veja como está minha macro:

Option Explicit
Sub Enviar_dados()

Worksheets("Base geral").Rows("2:1000").EntireRow.Delete
Worksheets("Ponto").Range("C13:K43").Copy
     With Worksheets("Base geral").Range("D1").End(xlUp).Offset(1)
         .PasteSpecial xlPasteFormats
         .PasteSpecial xlPasteValues
    End With
       
       
    With Worksheets("Base geral")
        .Range("A2:A32") = Worksheets("Ponto").Range("D5")
        .Range("B2:B32") = Worksheets("Ponto").Range("D7")
        .Range("C2:C32") = Worksheets("Ponto").Range("D9")
    End With

End Sub

É isso Prudêncio.

veja como está minha macro:

Option Explicit
Sub Enviar_dados()

Worksheets("Base geral").Rows("2:1000").EntireRow.Delete
Worksheets("Ponto").Range("C13:K43").Copy
     With Worksheets("Base geral").Range("D1").End(xlUp).Offset(1)
         .PasteSpecial xlPasteFormats
         .PasteSpecial xlPasteValues
    End With
       
       
    With Worksheets("Base geral")
        .Range("A2:A32") = Worksheets("Ponto").Range("D5")
        .Range("B2:B32") = Worksheets("Ponto").Range("D7")
        .Range("C2:C32") = Worksheets("Ponto").Range("D9")
    End With

End Sub

Boa tarde, Suenne.

Vê se esse código te ajuda

Sub Enviar_dados()

Dim UltimaCelula As Long
Dim UltimaLinha As Long
Dim i As Integer

    Sheets("Ponto").Select
    Range("C13:K13").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy

    Sheets("Base Geral").Select
    Range("D65536").End(xlUp).Offset(1, 0).Select
    
    Selection.PasteSpecial Paste:=xlPasteValues
    Selection.PasteSpecial Paste:=xlPasteFormats
    
    Application.CutCopyMode = False
    
    UltimaCelula = Sheets("Base Geral").Cells(Cells.Rows.Count, "A").End(xlUp).Row
    UltimaLinha = Sheets("Base Geral").Cells(Cells.Rows.Count, "D").End(xlUp).Row
    
        For i = UltimaCelula To (UltimaLinha - 1)
            
            Sheets("Base Geral").Range("A65536").End(xlUp).Offset(1, 0) = Sheets("Ponto").Range("D5").Value
            Sheets("Base Geral").Range("B65536").End(xlUp).Offset(1, 0) = Sheets("Ponto").Range("D7").Value
            Sheets("Base Geral").Range("C65536").End(xlUp).Offset(1, 0) = Sheets("Ponto").Range("D9").Value

        Next i

End Sub

Trindade, era disso mesmo que eu precisava!

Muito obrigada!!