Datastore is not saving data? [PLEASE HELP]

Hey guys, im having an issue with my datastore. So i plan on saving alot of data, and i want to do it on one key, the player UserId. To do this, i make a table and use Http Service to encode and decode it (which works, i tested it), but it appears it does not save correctly. Here is the code:

-- [ SERVICES ] --
local Players = game:GetService("Players")
local DataStoreService = game:GetService("DataStoreService")
local Http = game:GetService("HttpService")

-- [ DATASTORES ] --
local Data = DataStoreService:GetDataStore("Data")

Players.PlayerAdded:Connect(function(Player)
    -- Leaderboard
    local leaderstats = Instance.new("Folder")
    leaderstats.Name = "leaderstats"
    leaderstats.Parent = Player
    -- Coins
    local Coins = Instance.new("IntValue")
    Coins.Name = "Coins"
    Coins.Parent = leaderstats
    -- House
    local House = Instance.new("IntValue")
    House.Name = "House"
    House.Value = 1
    House.Parent = Player

    local PlotType = Instance.new("StringValue")
    PlotType.Name = "PlotType"
    PlotType.Parent = Player

    local HouseModel = Instance.new("StringValue")
    HouseModel.Name = "HouseType"
    HouseModel.Parent = Player

    -- Player Data
    local PlayerData = {
        Coins = Coins.Value,
        PlotType = PlotType.Value
    }
    local Encode
    local Success = false
    local UserId = Player.UserId
    while Success == false do
        local suc,err = pcall(function()
            Encode = Data:GetAsync(UserId)
        end)
        if suc then
            Success = true
        else
            print("Error loading player data")
            warn(err)
        end
    end
    local Decode
    local _Success = false
    while _Success == false do
        local suc,err = pcall(function()
            Decode = Http:JSONDecode(Encode)
        end)
        if suc then
            _Success = true
        end
    end 
end)
Players.PlayerRemoving:Connect(function(Player)
    local leaderstats = Player.leaderstats
    local UserId = Player.UserId
    local SavedData = {
        Coins = leaderstats.Coins.Value,
        PlotType = Player.PlotType.Value
    }
    local Encode
    local _Suc = false
    while _Suc == false do
        local Success,Error = pcall(function()
             Encode = Http:JSONEncode(SavedData)
        end)
        if Success then
            _Suc = true
        end
    end
    local Success = false
    while Success == false do
        local suc,err = pcall(function() -- It seems to be here
            Data:SetAsync(UserId,Encode) -- This doesn't seem to run, and the code seems to stop here for some reason
        end)
        if suc then
            print("Success!")
            Success = true
        else
            print("There was an error saving data")
            warn(err)
        end
    end
end)