Me gustaría ayudarte pero no está muy clara tu descripción pues digo:
a) por un lado afirmas que "ShowAllData" muestra otras columnas ocultas. Pero por otro afirmas que deseas que permanezcan ocultas las filas "7" y "8" (Rows("7:8").Hidden = True). Entonces tu problema de "ocultamiento" es: ¿con la filas o las columnas?.
b) Tienes 2000 registros (uno puede suponer que están desde la fila 1 a la fila 2000, por ejemplo) y afirmas que "ShowAllData" muestra
otras columnas ocultas que tengo fuera del rango Filtrado. Luego pones como ejemplo ocultar las filas "7" y "8". Entonces: ¿ "7" y "8" pertenecen o no al rango de filtrado ? (pues pertenecen a las filas "1" a "2000").
Sería bueno que aclararas estas cuestiones. Saludos.
Cita:
Iniciado por Pablus00 
... ActiveSheet.ShowAllData
Que me deshace el Filtro, pero ademas me muestra otras columnas ocultas que tengo fuera del rango Filtrado.
Pense en volver a ocultar las columnas que quiero como parte del macro para que vuelva a estar la hoja como al inicio:
ActiveSheet.ShowAllData
Rows("7:8").Select
Selection.EntireRow.Hidden = True