Haplox

Hola! Te puedo hcer una consulta respecto a este codigo, al ejecutarlo me entrega el valor que está en la celda incluida la formula, como podría hacer para que solo me entregué el valor?

Sub Extraer_Datos()
Dim shDestino As Worksheet
Dim ufo As Integer, ufd As Integer
Set shDestino = Worksheets.Add(After:=Sheets(Sheets.Count))
shDestino.Name = "d"

For I = 1 To Sheets.Count - 1
    If Sheets(I).Name = "ESCUELAS" Then
    Else
        ufo = Sheets(I).Range("A" & Cells.Rows.CountLarge).End(xlUp).Row
        ufd = shDestino.Range("A" & Cells.Rows.Values).End(xlUp).Row
        Sheets(I).Range("AA2:AJ" & ufo).Copy shDestino.Range("A" & ufd)
        
    End If
Next I
End Sub