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

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

챗 gPT에게 엑셀파일에서 part열이 마케팅인 행의 데이터만 골라 마케터 시트에 추가하는 vba코드를 작성해줘 이런식으로 질문을 해서 얻은 vba코드를 몇번 수정해서 아래의 GPT화면과 같은 vba코드를 얻어서 vba에 실행을 해보니 마케팅에 해당된 행이 있는데 행을 가져오지 못하고 있고요.

아래의 코드로 했을때는

Sub 반복_필터_및_추가()

Dim 원본시트 As Worksheet

Dim 마케터시트 As Worksheet

Dim 마케팅행 As Range

Dim 대상셀 As Range

' 원본 시트 및 마케터 시트 설정

Set 원본시트 = ThisWorkbook.Sheets("Sheet") ' 원본 시트명으로 변경

Set 마케터시트 = ThisWorkbook.Sheets("마케터시트") ' 마케터 시트명으로 변경

' 마케터 시트에서 마지막 행 찾기

마케터시트.Select

마케터시트.Cells(마케터시트.Rows.Count, 1).End(xlUp).Select

Set 대상셀 = ActiveCell.Offset(1, 0)

' 첫 번째 행부터 시작

Dim 시작행 As Long

Dim 현재행 As Long

' 무한 루프 시작

Do

' 원본 시트에서 "Part" 열이 "마케팅"인 행 찾기

On Error Resume Next

Set 마케팅행 = 원본시트.Columns("B").Find(What:="마케팅", LookIn:=xlValues, LookAt:=xlWhole)

On Error GoTo 0

' 찾은 행이 있으면 마케터 시트로 추가

If Not 마케팅행 Is Nothing Then

' 현재 행 번호 저장

현재행 = 마케팅행.Row

' 찾은 행을 마케터 시트로 추가

마케팅행.EntireRow.Copy 대상셀

' 다음 대상셀을 설정

Set 대상셀 = 마케터시트.Cells(마케터시트.Rows.Count, 1).End(xlUp).Offset(1, 0)

' 현재 행 다음 행부터 다시 찾기 시작

시작행 = 현재행 + 1

Else

MsgBox "마케터 시트에 추가할 데이터가 더 이상 없습니다.", vbInformation

Exit Do ' 더 이상 찾을 행이 없으므로 루프 종료

End If

Loop While 시작행 <= 원본시트.Rows.Count

End Sub 무한루프만 계속 돌아가는데 1개 행만 계속 반복해서 가져오고만 있는데 무엇이 문제일까요??