주문조회 메크로 설정시 모두 값이 불러오지 않는데... 뭐가 잘못된 걸까요 ㅜ

Sub 고급필터()
    With Sheet1
        If IsEmpty(.Range("B1").Value2) Then .Range("Q5") = Empty Else .Range("Q5") = "*" & .Range("B1").Value2 & "*"
        If IsEmpty(.Range("B2").Value2) Then .Range("R5") = Empty Else .Range("R5") = "*" & .Range("B2").Value2 & "*"
        If IsEmpty(.Range("B3").Value2) Then .Range("S5") = Empty Else .Range("S5") = "*" & .Range("B3").Value2 & "*"
        If IsEmpty(.Range("B4").Value2) Then .Range("T5") = Empty Else .Range("T5") = "*" & .Range("B4").Value2 & "*"
        If IsEmpty(.Range("B5").Value2) Then .Range("U5") = Empty Else .Range("U5") = "*" & .Range("B5").Value2 & "*"
        If IsEmpty(.Range("B6").Value2) Then .Range("V5") = Empty Else .Range("V5") = "*" & .Range("B6").Value2 & "*"
        If IsEmpty(.Range("B7").Value2) Then .Range("W5") = Empty Else .Range("W5") = "*" & .Range("B7").Value2 & "*"
    End With
 
    Sheet2.Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheet1.Range("Q4").CurrentRegion, _
                                                    CopyToRange:=Sheet1.Range("A9").CurrentRegion.Rows(1), Unique:=False
End Sub