Uma família de softwares de planilhas da Microsoft com ferramentas para analisar, criar gráficos e comunicar dados.
Olá!
Segue uma proposta de solução:
Sub main()
Dim i As Integer
For i = 1 To 30 'Defina aqui até qual linha deve procurar vazios e ocultar
With Excel.ThisWorkbook.ActiveSheet
If .Cells(i, 1).Value = "" Then
.Rows(i).EntireRow.Hidden = True
End If
End With
Next i
End Sub
Abraços!