Sub importar()


Workbooks.Open Filename:="C:\Users\lenovo\Documents\Cursos_Excel\Módulo 2_Excel\Excel 2_FormataçãoCondicional.xlsx"             


 Sheets("Seguradora").Select                                                                                                                                                                                                                                          
 Range("c7:i18").Copy


 Workbooks("ExcelVBA_TrabalhandoComArquivos.xlsm").Activate


 Range("i14").PasteSpecial xlFormats
 Range("i14").PasteSpecial xlValues

 Range("b1").Select
 Workbooks("Excel 2_FormataçãoCondicional.xlsx").Activate
 Workbooks("Excel 2_FormataçãoCondicional.xlsx").Close False


End Sub

O parâmetro "i14" refere-se a última célula a ser preenchida pela cópia da tabela, na planilha "Segurado". Não consegui identificar o erro ao ser usado o método: "Range( ).PasteSpecial xlValues". Testei outras combinações de parâmetros, mas o erro '1004' persiste. Alguma recomendação para resolução do problema?

Obrigado.