sub obrisiPrazanRed()
   Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
end sub