Simpler way to save data with a for loop? my script is getting long (Reward: Rep and upvote)

So, I have this MASSIVE script with 84 lines and every time I create an instance I need to put the name inside this script so... is there a way I can use a for loop instead?

local DataStore = game:GetService("DataStoreService"):GetDataStore("Munster")



game.Players.PlayerAdded:connect(function(player)
	-----------------------------------------------------------------------------------------------------
	local stats = Instance.new("IntValue", player)
	stats.Name = "SaveMonsters"
	
	
	local a = Instance.new("NumberValue", stats)
	a.Name = "monster1"
	local b = Instance.new("NumberValue", stats)
	b.Name = "raremonster"
	local c = Instance.new("NumberValue", stats)
	c.Name = "something"
		
	local d = Instance.new("NumberValue", stats)
	d.Name = "anotherthing"
	local e = Instance.new("NumberValue", stats)
	e.Name = "weirdstuff"
	local f = Instance.new("NumberValue", stats)
	f.Name = "anexample"
	
	local g = Instance.new("NumberValue", stats)
	g.Name = "stuff"
	local h = Instance.new("NumberValue", stats)
	h.Name = "randomstuff"
	local i = Instance.new("NumberValue", stats)
	i.Name = "idkwhatthisis"
	
	local j = Instance.new("NumberValue", stats)
	j.Name = "bruh"
	local k = Instance.new("NumberValue", stats)
	k.Name = "i"
	local l = Instance.new("NumberValue", stats)
	l.Name = "need"
	
	local m = Instance.new("NumberValue", stats)
	m.Name = "help"
	local n = Instance.new("NumberValue", stats)
	n.Name = "saving"
	local o = Instance.new("NumberValue", stats)
	o.Name = "this"
	local p = Instance.new("NumberValue", stats)
	p.Name = "stuff"
	local q = Instance.new("NumberValue", stats)
	q.Name = "pleaseHelp"
	local r = Instance.new("NumberValue", stats)
	r.Name = "andFreeRep"
	----------------------------------------------------------------------------------
	local key = "player-"..player.userId
	
	
	
	local savedValues = DataStore:GetAsync(key)
	
	if savedValues then
		a.Value = savedValues[1]
		b.Value = savedValues[2]
		c.Value = savedValues[3]
		d.Value = savedValues[4]
		e.Value = savedValues[5]
		f.Value = savedValues[6]
		g.Value = savedValues[7]
		h.Value = savedValues[8]
		i.Value = savedValues[9]
		j.Value = savedValues[10]
		k.Value = savedValues[11]
		l.Value = savedValues[12]
		m.Value = savedValues[13]
		n.Value = savedValues[14]
		o.Value = savedValues[15]
		p.Value = savedValues[16]
		q.Value = savedValues[17]
		--Save format: {points, coins}
	else
		local valuesToSave = {a.Value,b.Value,c.Value,d.Value,e.Value,f.Value,g.Value,h.Value,i.Value,j.Value,k.Value,l.Value,m.Value,n.Value,o.Value,q.Value}
		DataStore:SetAsync(key, valuesToSave)
	end

	
end)

ugh, every time i make a new value in a folder, i need to add it to this place, I need to make this script simpler, I have tried using a for loop for datastore but EVERY TIME IT EITHER DOESNT SAVE OR IT GIVES ME A STINKIN ERROR WITH NO SOLUTION AGHH (I am going crazy, someone help me, I will give an upvote and rep to the person that answers this)