Alguien me ayuda a mejorar este algoritmo y que sea más elaborado? Es una "Macros" que filtra columnas de un archivo en Excel. Si además del filtrado pudiera acomodar todas celdas, meterlas en un cuadro, etc. Gracias de antemano
Sub FiltrarColumnas()
Dim columna As Range
Dim seleccion As Range
Set seleccion = Application.InputBox("Selecciona las columnas que deseas mantener", Type:=8)
Columns.Hidden = True
For Each columna In seleccion.Columns
columna.EntireColumn.Hidden = False
Next columna
End Sub