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

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

숙제 엑셀파일에서 마케터만 골라 마케터 시트에 추가하는 vba코드를 넣었는데, 마케터 시트는 잘 생기는데 안에 마케터 데이터가 없네요.

챗지피티한테 코드 수정해달라고 해서 세번 수정코드 넣어보고, 마지막으로는 하라는 대로 한줄씩 디버그도 해봤는데 문제없이 술술 넘어가는데

데이터 시트만 텅 비어있네요... 뭐가 문제일까요?

작성한 코드 및 에러 메세지

Sub FilterMarketers()

  Dim ws As Worksheet

  Dim targetSheet As Worksheet

  Dim lastRow As Long, targetRow As Long

  Dim i As Long

  ' "마케터 시트"가 이미 존재하는지 확인하고 없으면 새로 생성

  On Error Resume Next

  Set targetSheet = Worksheets("마케터 시트")

  On Error GoTo 0

  Stop ' 여기서 멈춥니다.

  If targetSheet Is Nothing Then

    Set targetSheet = Worksheets.Add

    targetSheet.Name = "마케터 시트"

  End If

  ' 원본 시트에서 데이터 읽어오기

  Set ws = ActiveSheet ' 현재 활성화된 시트를 사용하거나 시트 이름을 변경하세요

  lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

  ' "마케팅" 부서인 데이터만 복사하여 "마케터 시트"에 추가

  targetSheet.Cells.Clear

  targetSheet.Rows(1).Value = ws.Rows(1).Value ' 헤더 복사

  targetRow = 2 ' "마케터 시트"의 다음 행부터 데이터 추가

  For i = 2 To lastRow

    If ws.Cells(i, 3).Value = "마케팅" Then

      ws.Rows(i).Copy targetSheet.Rows(targetRow)

      targetRow = targetRow + 1

    End If

  Next i

  MsgBox "마케터 시트에 데이터가 추가되었습니다.", vbInformation

End Sub