Why are my bullet's being raycasted slowly?

In short terms there is this issue of the bullets which are being shot from a gun which i had scripted and the bullets appear laggy and behind the player and not exact where the player had shot it.

Sorry my about my code being unclean.

Server CODE:

--main
local remote = game.ReplicatedStorage.RemoteEwents.Remote1


disabled = false

remote.OnServerEvent:connect(function(player,barrelpos,mousepos,distance,name)


    local plr = game.Players.LocalPlayer
local chr = player.Character
local tool = chr:FindFirstChild(name)
local dmg = tool.Handle.Damage.Value
local ammo = tool.Handle.Ammo
local reloadtime = tool.Handle.Reloadtime   
local reloading = false
local maxammo = tool.Handle.MaxAmmo

        local function reload()
        reloading = false
        ammo.Value = maxammo.Value
        disabled = true
        tool.Handle.Reload:Play()
        wait(tool.Handle.Reloadtime.Value)
        disabled = false
        end
        --creator


    if ammo.Value <= 0 then
        reloading = true
        if reloading == true then
            reload()
            wait(reloadtime.Value)
        end
    end

    local function onKeyPress(inputObject, gameProcessedEvent)
        if inputObject.KeyCode == Enum.KeyCode.R then
            reloading = true
            if reloading == true then
            reload()
            wait(reloadtime.Value)
        end
        end
    end

game:GetService("UserInputService").InputBegan:connect(onKeyPress)



    if ammo.Value >=1 and reloading == false and disabled == false then 

        local ray = Ray.new(barrelpos, (mousepos - barrelpos).unit * 3000)
        local part,position = game.Workspace:FindPartOnRay(ray, player.Character,false,true)
        local bullet = Instance.new("Part")
        ammo.Value = ammo.Value - 1
        tool.Handle.Fire:Play()
        bullet.Anchored = true
        bullet.CanCollide = false
        bullet.BrickColor = player.TeamColor
        bullet.FormFactor = "Custom"
        local dist = (barrelpos - mousepos).magnitude
        bullet.Size = Vector3.new(0.3,0.3,dist)
        bullet.Parent = workspace
        bullet.TopSurface = "Smooth"
        bullet.BottomSurface = "Smooth"
        bullet.Transparency = 0.5

        game.Debris:AddItem(bullet,0.1) 

        for i = 0, dist,6 do
            bullet.CFrame = CFrame.new(tool.Barrel.CFrame.p,position) * CFrame.new(0,0, -dist/2)
        end
        if part then
        local humanoid = part.Parent:FindFirstChild("Humanoid") 


        if humanoid then
            local plrname = part.Parent.Name
            local players = game.Players:FindFirstChild(plrname)
            print(plrname)



            local plrname1 = player.Name

            if  player.TeamColor ~= players.TeamColor and tool.Handle.Teamkill.Value == false then
                humanoid:TakeDamage(dmg)
                tool.Handle.Click:Play()
            else
                print("isinteam")
                if tool.Handle.Teamkill.Value == true then
                    humanoid:TakeDamage(dmg)
                end
            end
            local killed = false
            local creator = Instance.new("StringValue")
            if humanoid.Health <= 0 then




            end



            end
        end
    end 

end)

Client code:

local Player = game.Players.LocalPlayer
wait(0.5)
local gun = script.Parent
local remote = game.ReplicatedStorage.RemoteEwents.Remote1
local pgui = Player.PlayerGui.ammo.Frame
local maxammo = script.Parent.Handle.MaxAmmo
local ammo = script.Parent.Handle.Ammo


gun.Equipped:Connect(function(mouse)

    pgui.Visible = true
    gun.Unequipped:connect(function()
        pgui.Visible = false
    end)

    mouse.Icon = 'rbxassetid://131581677'
    local friendly = "http://www.roblox.com/asset/?id=131718487"
    local enemy = "http://www.roblox.com/asset/?id=131718495"


    local auto = script.Parent.Handle.Auto
    mouse.Button1Down:connect(function()


        if auto.Value == false then
            local name = gun.Name
            local distance1 = require(script.ModuleScript)
            local distance = nil
            remote:FireServer(gun.Barrel.CFrame.p, mouse.Hit.p, distance,name)

        end

    end)
    -- if its auto
    local inptSrvc = game:GetService("UserInputService")
    local name = gun.Name
    local distance1 = require(script.ModuleScript)
    local distance = nil
    local firerate =  script.Parent.Handle.FireRate

        while true do
            wait(0)
            if inptSrvc:IsMouseButtonPressed(0) then

                if auto.Value == true then
                    wait(firerate.Value)
                    local function update()



                        -- 

                        pgui:WaitForChild("Maxammo")
                        pgui:WaitForChild("Maxammo")
                        pgui.Maxammo.Text = maxammo.Value
                        pgui.ammoval.Text = ammo.Value
                        if pgui.ammoval.Text == 0 then
                            wait(2)
                        end     
                    end


                    -- Whilewait
                    update()


                    remote:FireServer(gun.Barrel.CFrame.p, mouse.Hit.p, distance,name)
                end
            end
       end
end)