after:
Set NewBk = ActiveWorkbook
add:
With NewBk.Sheets("Mainstay Master")
  With Intersect(.UsedRange, .Rows("4:15"))
    .Value = .Value
  End With
End With
If row 15 is not always the last row you can make that 15, say, 500.