关于#ide#的问题：只运行到LOOP

Sub 交易退款()
myname = Dir(ThisWorkbook.Path & "" & "*.xlsx")
Do While myname <> ""
Set wb = Workbooks.Open(ThisWorkbook.Path & "" & myname)
Set sht = wb.ActiveSheet
Columns("G:G").Select
Selection.Cut
Columns("F:F").Select
Selection.Insert Shift:=xlToRight
Loop

sht.Range("AS2") = "=IF(E2="","",VLOOKUP(E2,'C:\Users\Administrator\Desktop\平台 退货[平台货品.xlsm]Sheet1'!$F:$G,2,0))"
Range(Range("F2"), Range("F" & Cells(Rows.Count, "A").End(xlUp).Row)).Select
Selection.FillDown
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Workbooks("平台货品.xlsx").Close 0
End Sub

只运行到LOOP。下面就不行了。就是想在SHET的E列数据匹配WB工作簿F-G列数据中匹配，匹配到就放到SHET AS2。中间有空格就默认值也为空格