OK, I think hearth collection is done (for now).

QuestHelper/collect_hearth.lua

@@ -15,7 +15,9 @@ local function OnZoneChanged()
   local start, cd, _ = GetItemCooldown(6948)
   if last_hearth + 1800 < GetTime() and cd == 1800 then
     last_hearth = start
-    QHCZ[GetBindLocation()] = GetLoc()
+    local home = GetBindLocation()
+    if not QHCZ[home] then QHCZ[home] = {} end
+    QHCZ.Landing = GetLoc()
   end
 end