Guru do Excel e Power BI

Public Sub Teste()
    Dim vrtDados            As Variant
    Dim vrtFilt()           As Variant
    Dim datData             As Date
    Dim lngUltLin           As Long
    Dim lngCont             As Long
    Dim lngCol              As Long
    Dim lngDataMax          As Long
    Dim lngFilt             As Long
    
    With wshPLan
        lngUltLin = .Cells(.Rows.Count, 1).End(xlUp).Row
        
        vrtDados = .Range("A2:C" & lngUltLin).Value2
        
        datData = Application.WorksheetFunction.Max(.Range("A1:A" & lngUltLin))
        
        lngDataMax = Application.WorksheetFunction.CountIf(.Range("A1:C" & lngUltLin), _
                                                            datData)
                                                            
        ReDim vrtFilt(1 To lngDataMax, 1 To UBound(vrtDados, 2)) As Variant
        
        lngFilt = 0
        For lngCont = LBound(vrtDados, 1) To UBound(vrtDados, 1)
            If vrtDados(lngCont, 1) = datData Then
                lngFilt = lngFilt + 1
                For lngCol = 1 To UBound(vrtFilt, 2)
                    vrtFilt(lngFilt, lngCol) = vrtDados(lngCont, lngCol)
                Next lngCol
            End If
        Next
        
        .Range("A2:C" & lngUltLin).ClearContents
        
        .Range("A2:C" & lngFilt + 1).Value = vrtFilt
    End With
End Sub