VBA로 해당 부분을 FIND로 검색 후 특정 열을 복사해야할지 모르겠어요

   With Sheets("3번시트").Range(Cells(1, 3), Cells(100, 350)) 'Database 범위
      Set Z = .Find("공급가", Lookat:=xlPart) ' xlWhole : 전체 일치, xlPart : 부분 일치
      If Not Z Is Nothing Then                ' 값이 검색된다면 (값이 데이터베이스에 존재한다면)
            StrFirstaddr = Z.Address            '첫 주소 설정 (무한루프 방지용)
            strAddr = Z.Address                '주소값 설정
 
            Do                                                            ' 값 여러개 있을 경우 모두 찾아낼 수 잇다.
                 [                                       ]                  ' 어떤 행동을 취하고 (예를 들어 해당 열을 복사해서 옆 시트에 붙여넣기.
                  Set Z = .FindNext(Z)                                '다음 값 찾기
                  strAddr = Z.Address                                '셀 주소 설정
            '첫 주소와 겹치지 않을때까지 루프
            Loop While Not Z Is Nothing And strAddr <> StrFirstaddr
      Else
            '찾는 값 없을 경우 취할 행동
      End If
    End With