"ugyanezen oszlop utolsó nemüres cellája utáni első üres cellájába másolja - akkor is, ha az oszlopban a nemüres cellák között van üres cella, akkor is, ha nincs."

Ez egy talány, de valami ilyesmire gondolhatsz:

Cells(Range("E1048576").End(xlUp).Row + 1, 5) = Range("E1").FormulaR1C1

A.FormulaR1C1 nélkül ha minden igaz érték lesz, egyébként kléplet