Scan column for text and copy specific range thenpaste into diff column on diff sheet

Hi.....can you try this once....

Sub Reiterated()
 Dim r As Integer
 Dim cell As Range
 r = 4
 
 Sheets("Reiterated").Select


 Application.ScreenUpdating = False
 
 For Each cell In Range("E71:E136")
 If cell.Value = "Buy" Then
  cell.EntireRow.Select
  Selection.Copy
  Worksheets("MasterSheet").Select
  Cells(r, 1).Select
  ActiveSheet.Paste
  r = r + 1
  Sheets("Reiterated").Select
 End If
 Next cell
 
 Application.ScreenUpdating = True
  
 Sheets("MasterSheet").Select
 End Sub

I gave that a try to no avail. Am i crazy or am i just VBA impaired? It looks like your code is identical to mine except for the "application.screenupdating = false" and "application.screenupdating = true" at the beginning and end of the code. I tried to paste to column M in "MasterSheet" by changing "cells(r,1).select" to "cells(r,13).select"and i get same error..... error1.PNG. Or am i doing something completely wrong?