* 겪고 있는 문제 상황을 최대한 자세하게 작성해주세요.

* 문제 해결을 위해 어떤 시도를 해보았는지 구체적으로 함께 알려주세요.

시트는 생성되는데 리스트가 나오지 않습니다.

Sub FilterAndCopyData()

  Dim wbSource As Workbook

  Dim wsSource As Worksheet

  Dim wsMarketing As Worksheet

  Dim lastRow As Long, i As Long

  Dim newRow As Long

  ' 소스 파일 열기

  Set wbSource = Workbooks.Open("/Users/sujihan/Desktop/source.xlsx")

  ' 소스 시트 선택

  Set wsSource = wbSource.Sheets("Sheet") ' 소스 시트의 이름을 정확히 지정해야 합니다.

  ' 마케팅 시트 생성 또는 기존 시트 선택

  On Error Resume Next

  Set wsMarketing = wbSource.Sheets("Marketing")

  On Error GoTo 0

  If wsMarketing Is Nothing Then

    Set wsMarketing = wbSource.Sheets.Add

    wsMarketing.Name = "Marketing" ' 시트 이름 설정

  End If

  ' 마케팅 데이터 찾기 및 복사

  lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row ' 데이터 범위 설정, 여기서는 A열로 가정

  newRow = 1 ' 새로운 시트의 시작 행

  For i = 1 To lastRow

    If wsSource.Cells(i, "B").Value = "마케팅" Then ' B열이 마케팅인 경우에만 데이터 복사

      wsSource.Rows(i).Copy Destination:=wsMarketing.Cells(newRow, 1)

      newRow = newRow + 1

    End If

  Next i

  ' 변경 내용을 저장하고 파일을 닫음

  wbSource.Close SaveChanges:=True

End Sub