Private Sub Finalizar_Click()

  Application.ScreenUpdating = False
  Worksheets("Final").Range("A1:I70").Value = Worksheets("Controle").Range("A1:I70").Value
  Application.ScreenUpdating = True

End Sub