Dividing each cell in a data set by the column sum in R with missing cells

Question

I am trying to divide each cell in a data frame by the sum of the column. For example, I have a data frame df:

Company_Name Company_Location Area_code Fund_1