Saludos tengo un problema con VBA excel tengo el siguiente codigo que es para ocultar celdas en un rango y otro para volver a su lugar pero cuando vuelve a su lugar las formulas que tenia en las celdas se borran aparecen vacias.
Este es el codigo para ocultar las celdas
Private Sub CommandButton1_Click()
Rows("11:34").Select
Selection.EntireRow.Hidden = False
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
Range("A5:Q34").Select
Selection.Copy
Range("A5:Q34").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Este es el codigo para volver a mostrar las celdas
Private Sub CommandButton2_Click()
Rows("10:34").Select
Selection.EntireRow.Hidden = False
ActiveWindow.SmallScroll Down:=13
End Sub
En las celdas que se ocultan tengo formulas las cuales uso pero cuando se ocultan y se restauran las formulas se borran. Alguna idea de como se puede evitar que se borren las celdas, se agradeceria mucho.