특정날짜 데이터만 COPY 붙이기

@H.B 님 동일한 엑셀파일에 다른 시트에 복사한다고 생각하고
작성하였습니다.

주의사항 : P1 명칭을 날짜로 바꾸고 실행하세요.

Sub 데이터복사()

   
    Dim xOffset As Long
    Dim yOffset As Long
   
    Dim iRow As Long
    Dim iCol As Long
    Dim cSrcName(2) As String
    Dim iLoop As Integer
    
    
'/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
'///// 수식 정의
'/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    xOffset = 2
    yOffset = 2
    
    
    cSrcName(1) = "원데이터"
    cSrcName(2) = "복사경로"
    
    
    Sheets(cSrcName(1)).Select
     
    iRow = ActiveSheet.Cells(Rows.Count, xOffset).End(xlUp).Row
    iCol = ActiveSheet.Cells(iRow, Columns.Count).End(xlToLeft).Column
    
    '// P1 의 헤더는 B1 과 동일해야 함. (날짜)
    Range(Cells(xOffset, xOffset), Cells(iRow, iCol)).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("P1:P2"), Unique:=False  '// P1:P2 조건위치
    
    '// 헤더 포함시, yOffset + 0 으로 해야 함
    Range(Cells(yOffset + 1, xOffset), Cells(ActiveSheet.Cells(Rows.Count, xOffset).End(xlUp).Row, iCol)).SpecialCells(xlCellTypeVisible).Copy  '// 눈에 보이는 영역 복사
    
    
    '// 시트의 구조는 동일하다고 판단
    '// 다른 엑셀파일로 복사하려면, 파일여는 코드 삽입 필요
    
    Sheets(cSrcName(2)).Cells(Sheets(cSrcName(2)).Cells(Rows.Count, 2).End(xlUp).Row + 1, xOffset).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    
    
    Sheets("원데이터").Select
    
    Selection.AutoFilter    '// 고급필터 해제
    Selection.AutoFilter    '// 필터콤보 해제
    
End Sub

야휘님 답변 대단히 감사합니다. 하지만 원하는 날짜만 복봍이 아니라 모두 복붙이되네요... ㅜㅜ

혹시 죄송한데 range.find 메서드로 어떻게 할 수 있는 방법이 없을까요.

야휘님 Yukon님 감사합니다!!!!!