VBA select data then run count and place unique data once and show count on right

So I need a macro where I select the data in Column D starting at row 20 down the column how ever much data there is. then run macro that counts the letters in this selected data and place the first letter into column E at row 20 and the count to the right in column F. count meaning how many times this letters shows up in the data.
for example:
column D Column E Column F
H H 2
H P 3
P L 1
L F 1
F D 1
P C 1
D G 1
C
G
P

Check other post

Hello again,

The site is not letting me post the code here for some reason (it says I am spamming). I was able to give you the code in your previous post, so check it there and let me know if there are any issues.

Sincerely,
-Max