Excel - ¿Cómo hago un filtro avanzado, pero "al revés"?

Sub oculta_cols()

Dim cell As Range

For Each cell In Range("A1:I1")

    cell.EntireColumn.Hidden = (cell.Value <> 4)

Next

End Sub

Sub oculta_cols_2()

Dim cell As Range, rngDst As Range

Dim col%, v As Variant

Set rngDst = Range("A6")

col = 0

For Each cell In Range("A1:I1")

    With cell

         If .Value = 4 Then

            v = .Resize(4)

            rngDst.Offset(, col).Resize(4) = v

            col = col + 1

         End If

    End With

Next

End Sub