gistfile1.txt

(defun my/org-refile-to-id (id &optional todo)                                                                                                                                                 
  "Refile current subtree to subtree with ID."                                                                                                                                                 
  (interactive (list (read-string "ID: ")))                                                                                                                                                    
  (when todo (org-todo todo))                                                                                                                                                                  
  (org-cut-subtree)                                                                                                                                                                            
  (let ((anchor (ignore-errors (org-id-get-create))))                                                                                                                                          
    (org-id-goto id)                                                                                                                                                                           
    (org-insert-heading-respect-content)                                                                                                                                                       
    (org-demote-subtree)                                                                                                                                                                       
    (org-yank)                                                                                                                                                                                 
    (exchange-point-and-mark)                                                                                                                                                                  
    (zap-to-char 1 (string-to-char " "))                                                                                                                                                       
    (move-beginning-of-line nil)                                                                                                                                                               
    (if anchor                                                                                                                                                                                 
        (org-id-goto anchor)                                                                                                                                                                   
     (message "This was the last one."))))