Macro for normalization

I have a column(A) with 20 numbers and I want to create a macro that automatically divides each number in the column by the first number and inserts these number in column B. Also, within this macro I would like to automatically plot a line chart of the normalized column as well as display the coefficient of determination of the linear regression line.

Thanks