First VBA Loop - copy and paste values in one cell to another through ~30,000 rows

Question

I would like to copy the value in E1 and paste into F1 assuming the text in E1 = 1B , 2B, 3B, SS, or OF. Otherwise, F1 should remain blank. My code below works, but I\'m a