Claro, estás sobreescribiendo.
Mira, esta parte de código oculta celdas:
Range("11:11,13:13,15:15,17:17,19:19,21:21,23:23,25:25,27:27,29:29,31:31").Select
Selection.EntireRow.Hidden = True
Si te fijas, ocultas todas las filas impares desde la fila 11 a la 31. Pero luego más tarde haces lo siguiente:
Range("A5:Q34").Select
Selection.Copy
Range("A5:Q34").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Aquí el código coge el rango de celdas A5:Q34 y copia pega encima como valores lo que elimina las fórmulas. Dentro del rango A5:Q34 están justo las filas que has ocultado. Por eso pierdes las fórmulas. Tienes que excluir las filas ocultas.
La opción más fácil que veo es algo así:
Dim i As Long
For i = 5 To 11 Step 1
If Range("A" & i).EntireRow.Hidden = False Then Range("A" & i).Interior.Color = vbYellow
Next i
Rows("11:34").EntireRow.Hidden = False 'mostramos
Range("11:11,13:13,15:15,17:17,19:19,21:21,23:23,25:25,27:27,29:29,31:31").EntireRow.Hidden = True 'ocultamos
For i = 5 To 34 Step 1
'si la fila NO está oculta, pegamos valores
If Range("A" & i).EntireRow.Hidden = False Then Range("A" & i & ":Q" & i) = Range("A" & i & ":Q" & i).Value
Next i
Un bucle que mire si la fila está oculta o no: si no lo está, entonces pega valores.