SHARE
TWEET

Untitled

a guest Apr 21st, 2017 46 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. enter code here
  2. Dim rng As Range
  3. Dim cell As Range
  4. Dim ContainWord As String
  5. Set rng = Range("a1:a2000")
  6. ContainWord = "Type: Calls"
  7. For Each cell In rng.Cells
  8. If cell.Find(ContainWord) Is Nothing Then cell.Offset(1, 1).Select
  9. ActiveCell.Offset(1, 0).Activate
  10. Range(Selection, Selection.End(xlDown)).Select
  11. Range(Selection, Selection.End(xlToLeft)).Select
  12. Selection.Copy
  13. Windows("Prep file for Aspire Sonos.XLSb").Activate
  14. Sheets("Nuance Call & email & CRM data").Select
  15. Range("a1").Select
  16. Selection.End(xlDown).Select
  17. ActiveCell.Offset(1, 0).Select
  18.                 Selection.PasteSpecial Paste:=xlPasteValues,     Operation:=xlNone, SkipBlanks _
  19.     :=False, Transpose:=False
  20.     Windows("Transactions by Agent - Larry.XLSx").Activate
  21.     Sheets("Sheet1").Select
  22.     Exit For
  23.     Next
RAW Paste Data
Top