Creating a data store script. How can I prevent loss of player data?

My first data store script (shown below) I have ever attempted works perfectly. However, sometimes if I quickly leave the server after collecting money, my progress won't save. How can I prevent this from occurring? I've tried using the PlayerRemoving event, but it seems to not work as desired. Does anyone here have a more effective solution to this or is this compromise to player data normal?

local dataStore = game:GetService("DataStoreService");
local data = dataStore:GetDataStore("EvilData");

game.Players.PlayerAdded:Connect(function(player)
	local leader = Instance.new("Folder");
	leader.Parent = player;
	leader.Name = "leaderstats";
	local money = Instance.new("IntValue");
	money.Parent = leader;
	money.Name = "Money";
	money.Value = data:GetAsync(player.UserId) or 0;
	data:SetAsync(player.UserId, money.Value);
end);

game.Players.PlayerRemoving:Connect(function(player)
	print("Saving data");
	data:SetAsync(player.UserId, player.leaderstats.Money.Value);
	print("Data saved");
end);

while true do
	wait(60);
	for _, v in pairs(game.Players:GetPlayers()) do
		local money = v.leaderstats.Money;
		data:SetAsync(v.UserId, money.Value);
		wait();
	end;
end;