Sub ZSE()
poc = WorksheetFunction.CountA(Range("I:I"))
For i = poc To 2 Step -1
If Range("E" & i).Value = "" Then
Rows(i).Delete
End If
Next i
poc1 = WorksheetFunction.CountA(Range("I:I"))
For j = 2 To poc1
If Range("D" & j).Value = "" Then
Range("D" & j - 1).Copy Range("D" & j)
End If
Next j
Range("A:C").Delete
Range("C:D").Delete
Range("D" & 1).Copy Range("E" & 1)
Range("E1") = "Poznámka"
Range("E2:E" & poc1) = "Platba od ZSE"
End Sub