Ordenar una tabla por valores de una columna

Viendo unas respuestas sobre crear macro para ordenar una tabla a través de los valores de una columna vi lo siguiente:

Sub ordenar()
'Por.DAM
Set h1 = Sheets("Hoja1")
With h1.Sort
 .SortFields.Clear: .SortFields.Add Key:=Range("G2:G16")
 .SetRange Range("A1:G16"): .Header = xlYes: .Apply
End With
End Sub

El problema es que tengo formulas con referencia a otras celdas y cambian cuando se realiza el orden.

Ejemplo:

La formula que esta en la celda G2 usa una referencia de la celda f2 para su calculo.

              F             G

2            7           = F2 - "algo"

3            8          = F3 - "algo"