Sub obrisiPrazanRed()
  Dim raspon As Range, red As Long, i As Long
  Set raspon = ActiveSheet.Range("A1:C9") 'unesi raspon celija koje sadrze podatke
  red = raspon.red.Count
  For i = red To 1 Step (-1)
    If WorksheetFunction.CountA(raspon.red(i)) = 0 Then raspon.red(i).Delete
  Next i
End Sub