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