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

Found this code online and tried using it but i need to be able to only copy column B thru F on sheet "reiterated" then copy to column M on sheet "mastersheet". Im getting error now when i try changing code and running macro and i believe its because im copying entire row therefore it wont allow me to offset the pasting to column M. Any help would be appreciated.

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

 For Each cell In Range("E71:E136")
 If cell.Value = "Buy" Then
  cell.EntireRow.Copy Sheets("MasterSheet").Cells(r, 1)
 r = r + 1
 End If
 Next cell
  
 Sheets("MasterSheet").Select
 End Sub

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?