VBA 等公式运行完后再进行下一步

请问有没有什么VBA语句可以设置等表格内的公式全部运行完之后，再进行下一步？
Sub test()
Dim i As Long
Application.ScreenUpdating = False
Range("C2").Select
Selection.FormulaArray = _ '标记
"=LOOKUP(1,0/FIND(UPPER(RC2),IF(R2C15:R358C15=RC1,R2C16:R358C16)),R2C17:R358C17)"
Selection.AutoFill Destination:=Range("C2:C" & [a800000].End(xlUp).Row)
Range("C:C").Select
Selection.Copy '标记1
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
比如以上代码，在标记行运行的公式还没运行完时，就会运行标记1的粘帖为数值了。。

Sub test()
Dim i As Long
Application.ScreenUpdating = False 这一句删除
    Range("C2").Select
    Selection.FormulaArray = _         '标记
        "=LOOKUP(1,0/FIND(UPPER(RC2),IF(R2C15:R358C15=RC1,R2C16:R358C16)),R2C17:R358C17)"
    Selection.AutoFill Destination:=Range("C2:C" & [a800000].End(xlUp).Row)
    Range("C:C").Select
    Selection.Copy     '标记1
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
 Application.ScreenUpdating = True这一句也删除
End Sub

用公式有可能解决，但vba是最有效的办法。即使用公式，也得用编辑替换来替换里面的文件名字，可能还得用vba，所以，干脆用vba好了。