Como ordenar usando el filtro en una hoja bloqueada y sin alterar el orden en las columnas que tienen fórmula

Necesito ordenar en la hoja de carga, y en otras, una fila con los datos del nuevo trabajador.. Y cuando uso la macro que me creaste para eso, en las columnas que tienen fórmula se daña, ¿puesto qué al ordenar se cambia la fórmula ... Como podría ordenar por la columna de apellidos y nombres todos los datos de esa fila en la tabla dinámica sin que se me dañen las columnas que tienen fórmula?

Este es código que me hiciste de macro para ordenar.

Sub Ordenar()
'Por.Dante Amor
Dim col, r, num, fila, ufila, col1, col2, des
'
col = ActiveCell.Column
On Error Resume Next
Set r = ActiveSheet.AutoFilter.Range '.Address
num = Err.Number
des = Err.Description
On Error GoTo 0
If num <> 0 Then
MsgBox "La celda no es está en un rango de celdas filtradas", _
vbInformation, "Error: " & num & " " & des
Exit Sub
End If
'
Application.ScreenUpdating = False
fila = r.Cells(1, 1).Row
ufila = r.Rows.Count + fila - 1
col1 = r.Cells(1, 1).Column
col2 = r.Columns.Count + col1 - 1
'
With ActiveSheet.Sort
.SortFields.Clear
.SortFields.Add Key:=Cells(fila, col), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortTextAsNumbers
.SetRange Range(Cells(fila + 1, col1), Cells(ufila, col2))
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub