--- a/.emacs-my	Tue Mar 26 11:25:33 2013 +0200
+++ b/.emacs-my	Thu Apr 25 11:59:01 2013 +0300
@@ -1347,6 +1347,17 @@
 
 (setq org-agenda-include-diary t)
 
+(defun my-org-kill-by-tag (tag)
+  "Put all entries that matches TAG from current org-file to `kill-ring'."
+  (interactive (list (completing-read "Enter tag: " (org-get-buffer-tags))))
+  (kill-new "")
+  (org-scan-tags
+   (lambda ()
+     (let ( (last-command 'kill-region) )
+       (org-cut-subtree)))
+   '(member tag tags-list)
+   nil) )
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "TODO, XXX, FIXME highlight")
 ;; Show blanks and FIXME