How do I make it so my currency saves when I buy something with it?

I have made a currency, and a system that makes it so it saves when you buy more currency with R$. I have also made a function that subtracts currency when you click a GUI. When I leave the server, it doesn't save the currency I have after I clicked the value subtracting GUI. Here are the two scripts:

This is the script that creates the leaderstats folder and/or gets the data store from the service and loads it into the game.

local currencyName = "Uranium"
local DataStore = game:GetService("DataStoreService"):GetDataStore("TestDataStore") 
game.Players.PlayerAdded:Connect(function(player)

    local folder = Instance.new("Folder")
    folder.Name = "leaderstats"
    folder.Parent = player  

    local currency = Instance.new("IntValue")
    currency.Name = currencyName
    currency.Parent = folder

    local ID = currencyName.."-"..player.UserId
    local savedData = nil   

    pcall(function()
        savedData = DataStore:GetAsync(ID)
    end)

    if savedData ~= nil then
        currency.Value = savedData
        print("Data loaded")
    else
        -- New player
        currency.Value = 0
        print("New player to the game")
    end


end)

game.Players.PlayerRemoving:Connect(function(player)
    local ID = currencyName.."-"..player.UserId
    DataStore:SetAsync(ID,player.leaderstats.Uranium.Value)
end)

game:BindToClose(function()
    for i, player in pairs(game.Players:GetPlayers()) do
        if player then
            player:Kick("Server has closed. Please join again later.")
        end
    end
end)

And this the script that subtracts from the currency:

script.Parent.MouseButton1Click:Connect(function()
    game.Players.LocalPlayer.leaderstats.Uranium.Value = game.Players.LocalPlayer.leaderstats.Uranium.Value - 50

end)

Please help! By the way I'm not a very experienced scripter.