excel - 貼り付け操作で何も貼り付けられないのはなぜですか?

Question

以下のコードが何も貼り付けないのはなぜですか? 実際に必要なものをコピーしますが、貼り付け操作が機能しません。

With Workbooks(NomeAmostra)
     Range("B55").Copy
End With

     Workbooks("Recuperar (simplificada)").Sheets("DadosProcessados").Activate
       Range("AG" & n).PasteSpecial Paste:=xlValues 'Colagem dos resultados
         Set Horario = Range("AG" & n)
            Horario = Left(Horario, Len(Horario) - 4)

変更したところ正常に動作するようになりましたが、理由がわかりません。

Workbooks(NomeAmostra).Activate
Range("B55").Copy

  Workbooks("Recuperar (simplificada)").Sheets("DadosProcessados").Activate
     Range("AG" & n).PasteSpecial Paste:=xlValues 'Colagem dos resultados
       Set Horario = Range("AG" & n)
         Horario = Left(Horario, Len(Horario) - 4)

ありがとう！