Macro copying values and sheet names of all activated sheets

If by "inactive" you mean "hidden", then this should do it:

Option Explicit

Sub CreateSummary()
Dim ws As Worksheet, wsSUM As Worksheet, NR As Long

Set wsSUM = Sheets("RESUMEN")
NR = 5

    For Each ws In Worksheets
        If ws.Name <> "RESUMEN" And ws.Visible = xlSheetVisible Then
            wsSUM.Range("C" & NR) = ws.Name
            wsSUM.Range("D" & NR).Resize(, 6).Value = ws.Range("I9:N9").Value
            NR = NR + 1
        End If
    Next ws

End Sub