a 'profile' could be:

[VBA]
Range("A5:A10,A24,A16,A20:A24").entirerow.hidden =false
[/VBA]