Advertisement
Guest User

Untitled

a guest
Oct 21st, 2014
163
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.14 KB | None | 0 0
  1. Cells.Find("TRDM").Select
  2. ActiveCell.EntireRow.Select
  3. Selection.Cut
  4. Range("7:7").Select
  5. Selection.Insert
  6. Application.CutCopyMode = False
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement