Sub OCULTA()
'
' OCULTA Macro
'
'ESTO ES PARA MOSTRAR
Range(Cells(2, Range("INI").Column), _
Cells(5, Range("INI").Column + _
Range("PLAZO").Value - 1)) _
.EntireColumn.Hidden = False
'ESTO ES PARA OCULTAR
Range(Cells(6, Range("INI").Column + _
Range("PLAZO").Value), _
Cells(9, Range("FIN").Column)) _
.EntireColumn.Hidden = True
End Sub