Auto Merge Blocks

local active = workspace:WaitForChild("activeBlocks")
local names = {}

while task.wait() do
    for _, v in ipairs(active:GetChildren()) do
        local name = v.Name

        if names[name] then
            local block1 = names[name]
            local block2 = v

            if block1:FindFirstChildWhichIsA("BasePart") and block2:FindFirstChildWhichIsA("BasePart") then
                block2:FindFirstChildWhichIsA("BasePart").CFrame = block1:FindFirstChildWhichIsA("BasePart").CFrame
            end
        else
            names[name] = v
        end
    end
end