Boa tarde

Gostaria de colar dados de outra planilha mas está dando o erro:

Erro em tempo de execução "1004":
O método PasteSpecial da classe range falhou

Segue código que estou usando:

Application.ScreenUpdating = False 'Desabilita atualização de tela

ActiveSheet.Unprotect Password:="010101"

ActiveSheet.Range("$A$16:$IN$1000").AutoFilter Field:=194
ActiveSheet.Range("$A$16:$HE$1000").AutoFilter Field:=164

If Columns("ae:aI").Hidden = True Then

Columns("ae:aI").Hidden = False

If Plan4.Cells(13, 157) = "0" Then
resultado = MsgBox("Sr. " & Plan6.Range("AQ4024").Value & ", gostaria de inserir os preços automaticamente?", vbYesNo, "Tomando uma decisão")
If resultado = vbYes Then

Range("ae17").Select

Selection.PasteSpecial Paste:=8 (parece que o erro está aqui pois fica em amarelo)

Podem me ajudar por favor ?