Erro function or variável em VBA

[FebenSss]

Alguem pode me explicar como resolver esse erro no código?

Sub Recepcao()'Recepçao de Dados'Criando as VariáveisDim VarCurso As StringDim VarData As DateDim VarParticipante As StringDim VarDepto As StringDim VarEmpresa As StringDim VarCusto As Double'Recepçao dos dadosVarCurso = Application.InputBox("entre com o curso", , , , , , 2)VarData = Application.InputBox("Entre com a data:", , , , , , 1)VarParticipante = Application.InputBox("Entre com o parti", , , , , , 2)VarDepto = Application.InputBox("Entre com o depto", , , , , , 2)VarEmpresa = Application.InputBox(" Entre com a empresa", , , , , , 2)VarCusto = Application.InputBox("entre com o custo", , , , , , 1)'Definição do local de Recepção dos DadosRange("EntraCurso").SelectActiveCell.FormulaR1C1 = VarCursoRange("EntraData").SelectActiveCell.FormulaR1C1 = VarDataRange("EntraParticipante").SelectActiveCell.FormulaR1C1 = VarParticipanteRange("EntraDepto").SelectActiveCell.FormulaR1C1 = VarDeptoRange("EntraEmpresa").SelectActiveCell.FormulaR1C1 = VarEmpresaRange("Entracusto").SelectActiveCell.FormulaR1C1 = VarCustoEnd SubSub Transportes()Sheets("CADASTRO").SelectRange("J2:O2").CutRange("B1048576").End(xlUp).SelectActiveCell.Offset(1, 0).SelectActiveSheet.PasteEnd SubSub Cadastro()RecepcaoTransporteEnd SubSub classificarAz()Range("DADOS").Sort Key1:=Range("B7"), order1:=xlAscending, Header:=xlNoEnd SubSub ClassificaZA()Range("dados").Sort Key1:=Range("B7"), order1:=xlAscending, Header:=xlNoEnd SubSub Application()Aplication.ThisWorkbook.SaveEnd Sub