Need help please!

Below is my current code that I believe can be more efficiently executed. I have the times in Range ("F50:I50") that I would like inserted into the next blank row in the range (F9:I16). Thanks for your help.


Range("f9:f16").Find("").Activate

ActiveCell.Value = "8:00 AM": ActiveCell.Offset(0, 1).Activate

ActiveCell.Value = "12:00 PM": ActiveCell.Offset(0, 1).Activate

ActiveCell.Value = "1:00 PM": ActiveCell.Offset(0, 1).Activate

ActiveCell.Value = "5:00 PM"