Mostrar conjunto de células após filtro

Question

Gostaria de manter as células mescladas para impressão após executar o filtro, existe um código que vi aqui no mas está dando vários erros mas no post o participante disse que funcionou, somente gostaria de manter em uma planilha simples com as colunas, NOME, DATA, SITUAÇÃO, então quando mesclo por exemplo situação ATIVO de várias datas do mesmo NOME as outras DATAS são ocultadas.

Referência foi:

Este código foi desenvolvido por Felipe Costa Gualberto - http://www.ambienteoffice.com.br

Sub fncAntesDoFiltro()

    Dim lngFirst As Long
    Dim lngLast As Long
    Dim rngCell As Range
    Dim rngMerged As Range
    Dim strArea As String
    Dim strFormula As String
    Dim rngLast As Range

    With ThisWorkbook.Worksheets("Base")
        lngFirst = 10
        lngLast = .Cells(.Rows.Count, "H").End(xlUp).Row
        For Each rngMerged In .Cells(lngFirst, "H").Resize(lngLast - lngFirst + 1)
            If rngMerged.MergeCells Then
                strArea = rngMerged.MergeArea.Address
                strFormula = rngMerged.Formula
                rngMerged.UnMerge
                For Each rngCell In .Range(strArea)
                    rngCell.Formula = strFormula
                Next rngCell
            End If
        Next rngMerged
         lngFirst = 10
        Set rngLast = .Cells(.Rows.Count, "I").End(xlUp)
        lngLast = rngLast.Row + rngLast.MergeArea.Rows.Count - 1
        .Cells(lngFirst, "I").Resize(lngLast - lngFirst + 1).Copy
        .Cells(lngFirst, "H").PasteSpecial xlPasteFormats
    End With
End Sub