Divide Rest of the Columns using Column A values

[snb]

or

Sub M_snb()
   Sheet2.Cells(20, 1).Resize(9, 4) = [index(if(column(A2:D2)=1,sheet1!A2:A10,round(sheet1!A2:D10/sheet1!A2:A10,0)),)]
End Sub