Boa tarde Oliveira 12

Seja bem-vindo ao fórum!

Movi teu tópico para VBA & Macros , que é o assunto da tua dúvida.

Onde vc havia postado é exclusivo para Sugestões, dúvidas e criticas e reclamações sobre o fórum.

Temos vários tópicos sobre o assunto, sempre utilize a pesquisa do fórum antes de criar um tópico:
Veja quantos tópicos:

http://www.google.com.br/cse?cx=partner ... gsc.page=1

Se ainda persistirem as dúvidas, anexe a tua planilha (arquivo compactado, conforme as regras do fórum), com detalhes do que deseja.

[]s

Sub Imprimir()
For i = 15 To 30
If Cells(i, 1).Value = "" Then
Rows(i).Hidden = True
End If
Next
ActiveSheet.PrintOut
End Sub