Trouble with macro (empty and nonempty cells)

Hi,
I have a trouble with macro.

In column A I have risk factors ("Czynniki narażeń"), in column B I choose if that risk factor exist or not ("Zaznaczone"; Yes ("Tak") or No ("Nie")), column D shows necessary medical examinations ("K/B") and column E shows preparation ("Przygotowanie") for an examination.

I'd like to (After column D shows data and before column E shows data):
1. remove duplicates in column D (I found something [remove.duplicates] but it doesn't work)
2. remove empty cells in column D (but not rows) - I have an idea but I don't know how to do it:
-find last non empty cell in range d7:d16
-copy
-find first empty cell in range d7:d16
-paste
-do it until last non empty cell row number is lower than first empty cell row number

Here's the code I have:

Please Login or Register  to view this content.

Buttons: "Pokaż K/B" runs macro and "Wyczyść" cleans data

Please give me some advice.

Current solution (which I'd like to be improved):
B7, B8, B10 = Tak
D7 = oku
D8 empty
D9 = cholesterol
D10 = oku

After (only unique values and no empty cells between cells with data):
D7 = oku
D8 = cholesterol