Pessoal preciso de um help de vocês,

Quero ocultar determinadas linhas e para isso estou usando essa macro aqui de uma outra planilha.

Sub escondeLinhas01()
Rows("4:12").EntireRow.Hidden = True

Porém para essa nova planilha eu preciso que ela oculte todas as linhas menos a linha 3 + 9 + 9 ... e assim por diante! ou seja, ela tem que ocultar todas as linhas menos a linha 3, 12, 21, 30 ... e assim consecutivamente até a linha 48.

Como ficaria a alteração na formula?

Se alguém puder me ajudar, agradeço desde já!
Abraços!