Excel - buscar y mostrar en una sola fila

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, Range("P4")) Is Nothing Then Exit Sub

    On Error Resume Next

    Application.EnableEvents = False

    Application.ScreenUpdating = False

    For I = 30 To 41

        DAT = ""

        Sheets("MICRO").Range("$A$4:$Q$552").AutoFilter Field:=17, Criteria1:=Sheets("CONSOLIDADO").Cells(I, 1)

        Sheets("MICRO").Range("$A$4:$Q$552").AutoFilter Field:=14, Criteria1:="=*", Operator:=xlAnd

        Sheets("MICRO").Range("$A$4:$Q$552").AutoFilter Field:=5, Criteria1:=Sheets("CONSOLIDADO").Cells(4, "P"), Operator:=xlAnd

        Sheets("MICRO").Select

        Sheets("MICRO").Range("N4:N552").SpecialCells(xlCellTypeVisible).Select

        For Each DATO In Selection.Cells

            If DATO <> "OTROS" Then DAT = DAT & DATO & ", "

        Next

        If DAT <> "" Then DAT = Mid(DAT, 1, Len(DAT) - 2)

        Sheets("CONSOLIDADO").Cells(I, 6) = DAT

    Next

    ActiveSheet.ShowAllData

    Sheets("CONSOLIDADO").Select

    Application.ScreenUpdating = True

    Application.EnableEvents = True

End Sub