VBA 코딩질문 드립니다..( TXT를 엑셀로 가져올때 조건이 있습니다..)

Sub test()
 
Application.ScreenUpdating = False
Application.DisplayAlerts = False
 
    Set Target = Range("A1")   '복사될 위치    
    Set wb = Workbooks.Open("예제.txt")  ' raw 데이타는 .xlsm파일과 같은 디렉토리에 두면 됩니다.. 다른 디렉토리인 경우엔 풀패스 적어주시구요..
    p1 = WorksheetFunction.Match("AAAAAAAAAA", wb.Sheets(1).Range("A:A"), 0) + 1   ' AAAA다음줄
    p2 = WorksheetFunction.Match("BBBBBBBBBB", wb.Sheets(1).Range("A:A"), 0) - 1    'BBBB바로전 줄
 
    Set Area = wb.Sheets(1).Range("A" & p1 & ":A" & p2)   ' 복사할 영역
    Area.Copy Target   '타겟에 복사하고..    
    wb.Close SaveChanges:=False    
 
    Set Area = Target.CurrentRegion.Columns(1) '첫번째 칼럼영역을   컴마로 텍스트나누기 함
    Area.TextToColumns Destination:=Area(1), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=False _
 
    Target.Select
 
Application.DisplayAlerts = True
Application.ScreenUpdating = False
 
End Sub