Ashish Batham
Member
wks.Cells(1, 5) = "Weight"
y = rs.RecordCount
wks.Cells(rs.RecordCount + 2, 4) = "=sum(D2: D" & rs.RecordCount + 1
For x = 2 To rs.RecordCount + 1
wks.Cells(x, 5) = "=D" & x & "/D" & rs.RecordCount + 2
Next x
y = rs.RecordCount
wks.Cells(rs.RecordCount + 2, 4) = "=sum(D2: D" & rs.RecordCount + 1
For x = 2 To rs.RecordCount + 1
wks.Cells(x, 5) = "=D" & x & "/D" & rs.RecordCount + 2
Next x