Sub Declaracao () Sheeta ("Banco de Dados").Select Range ("b6"). Copy Sheets("Plana").Select Range("10") .PasteSpecial xlPasteValues Sheet("Banco de Dadas").Select Range("16") Copy Sheets ("Plan3") .Select Range("010") .Paste special x1 Pastevalues Sheets ("Banco de Dados Select Range("C6").Select If Value - "Pte de 04 Or "PEŠ de Sheets (*Plan3") -Select Cells("g10") - Educação InfantiL" Else Cells ("a1o") - "Ensino Fundamental" End It Declaracao Digite uma pergunt 3 OS" Then End Sub Alguém pode me ajudar achar o erro