Guru do Excel e Power BI

Sub Filtrar()
Dim P As String, B As String
    Sheets("Folha de Ponto").Select
    With ActiveSheet
        P = .Cells(.Rows.Count, "B").End(xlUp).Row
    End With
    If P > 23 Then
    Range("A24:K" & P).Select
    Selection.ClearContents
    End If
    
    Sheets("Controle de Horas").Select
    With ActiveSheet
        B = .Cells(.Rows.Count, "A").End(xlUp).Row
    End With
    Range("A5:K" & B).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Planilha4.Range( _
        "C8:C9"), CopyToRange:=Planilha4.Range("A23:K23"), Unique:=False
    Sheets("Folha de Ponto").Select
    Range("B23").Select
    MsgBox "Filtro filnalizado"
End Sub

Sub Filtrar()
Dim P As String, PT As String, PC As String, B As String, BT As String
    Sheets("Folha de Ponto").Select
    Titulo
    Criterio
    With ActiveSheet
        P = .Cells(.Rows.Count, "B").End(xlUp).Row
        PT = Range("B1")
        PC = Range("C1")
    End With
    If P > PT Then
    Range("A" & PT + 1 & ":K" & P).Select
    Selection.ClearContents
    End If
    
    Sheets("Controle de Horas").Select
    Titulo
    With ActiveSheet
        B = .Cells(.Rows.Count, "A").End(xlUp).Row
        BT = Range("B1")
    End With
    Range("A" & BT & ":K" & B).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Planilha4.Range( _
        "C" & PC & ":C" & PC + 1), CopyToRange:=Planilha4.Range("A" & PT & ":K" & PT), Unique:=False
    Sheets("Folha de Ponto").Select
    MsgBox "Controle de horas do " & Range("C" & PC + 1) & " finalizado", vbInformation, "© Muca Sistemas - 2021"
    Range("C" & PC + 1).Select

End Sub

Sub Titulo() 'Busca a primeira linha com títulos de colunas
Range("A1").Select ' seleciona a primera linha da coluna a ser analisada
    Do Until ActiveCell = "Nome" ' executa a macro até encontrar a palavra Nome no fim da coluna a ser analisada
        ActiveCell.Offset(1, 0).Select 'desce uma linha
        If ActiveCell = "Nome" Then   'faz a análise lógica
            myRow = ActiveCell.Row
            Range("B1") = myRow
    End If
Loop
End Sub

Sub Criterio() 'Busca o interválo de critério
Range("C1").Select ' seleciona a primera linha da coluna a ser analisada
    Do Until ActiveCell = "Nome" ' executa a macro até encontrar a palavra Nome no fim da coluna a ser analisada
        ActiveCell.Offset(1, 0).Select 'desce uma linha
        If ActiveCell = "Nome" Then   'faz a análise lógica
            myRow = ActiveCell.Row
            Range("C1") = myRow - 1
    End If
Loop
End Sub