Experimente.
Considerei que haverá ao menos uma linha vazia na tabela, se não, o cabeçalho será afetado.

Sub ExcluiLinhasVazias()
 Application.ScreenUpdating = False
 With Sheets("Quadro de Preços")
  .AutoFilterMode = False
  .Range("B2:H2").AutoFilter Field:=1, Criteria1:="="
  .Range("B3:B" & .Cells(Rows.Count, 2).End(3).Row).SpecialCells(xlCellTypeVisible).EntireRow.Delete
  .AutoFilterMode = False
  .Range("A3:A" & .Cells(Rows.Count, 2).End(3).Row).Value = "=A2+1"
 End With
 Application.ScreenUpdating = True
End Sub

Osvaldo, you're amazing!
Muito obrigado, amigo! Funcionou perfeitamente!
Abraços