Boa Noite!

Estou com uma macro que foi feita para atualização automática, mas agora esta tabela esta vinculada a formula de localização em outra planilha e não consigo altera-la. A formula é a seguinte:

Private Sub Worksheet_Change(ByVal Target As Range)

ActiveWorkbook.Worksheets("Vistoria").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Vistoria").Sort.SortFields.Add Key:=Range("B3:B400") _
, SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"=menor(C3:C400)", DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Vistoria").Sort
.SetRange Range("A3:C400")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

End Sub

Vi que para rodar com formulas teria de usar a seguinte configuração Worksheet.Calculate mas não sei como altera-la, para este caso alguém poderia me ajudar?