Guest User

Untitled

a guest
Jul 22nd, 2018
60
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.13 KB | None | 0 0
  1. ActiveCell.Offset(1, 0).Select
  2. Selection.Copy
  3. ActiveCell.Offset(-1, 0).Select
  4. ActiveSheet.Paste
  5. Application.CutCopyMode = False
Add Comment
Please, Sign In to add comment