De fato esta rotina Arrumar é um pouco extensa, então vamos falar só da parte que citou "data é fixa, ??/??/2012 ou ??/02/2013":

Primeiro não entendi o porque antes está selecionando os Ranges "Range("AP7").Select" e "Range("AP8").Select" se não tem nenhuma ação apos a seleção, você pode excluir estas duas instruções.

Quanto as datas, uma vez que estão nos mesmos Ranges, você pode criar uma Variável, e adicionar um InputBox para que seja digitado a data e carregado na Variável, e na Instrução trocar a expressão "??/??/2012" pela Variável, ficando mais ou menos assim :

Dim sDatas$

Sub InputBoxDatas()
     
    sDatas = InputBox("Entre com a Data:", "Inputbox")
    
    If StrPtr(sDatas) = 0 Then
        MsgBox "Você Cancelou!"
    
    Else
        
        If sDatas = "" Then
            MsgBox "Você não digitou nada e clicou em OK"
        
        Else
            
            Call ArrumarData_AF_AF
            
        End If
        
    End If
    
End Sub

Sub ArrumarData_AF_AF()

    Columns("AF:AF").Select
    Selection.Replace What:="MS: " & sDatas, Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

End Sub

Reduzi só para a parte das datas, mas é só adaptar a sua maneira, você ainda pode adicionar opção para continuar após a execução da primeira parte alterando a propriedade do botão do msgbox para "vbYesNo", para voltar e executar a segunda utilizando a mesma rotina.
sMsg = MsgBox("Deseja Continuar", vbYesNo)

Espero que ajude.

[]s

Eu estava selecionando os Ranges pq o espertão aqui achou que dava para fazer um Ctrl+C Ctrl+V no menu substituir do Excel (Ctrl+U) com a coluna que eu queria substituir selecionada. Mas obviamente não rolou.

Esse arrumar está bem extenso mesmo, como você pode perceber, existem duas colunas para cada item (Nº, RM, Nome, etc), a da direita eu pego as informações de um site e colo lá, a da esquerda é a que eu passo para as professoras. Quando eu copio e colo as informações da net vêm fora do padrão utilizado pela escola então a macro Arrumar põe tudo nesse padrão, depois eu só confiro se teve alterações (coluna AG).

Eu quero deixar tudo o mais automatizado possível, pois nem sempre sou eu quem realiza a atualização dos dados, assim quem utilizar fica só no copia e cola e apertar "botãozinho".

Eu vou testar o comando que você passou se eu tiver algum problema eu aviso, obrigado desde já pela ajuda.

Como diria um americano: "Worked like a charm!!!!"

Você é ninja mesmo velhão, obrigado!!!

Como diria um americano: "Worked like a charm!!!!"

Você é ninja mesmo velhão, obrigado!!!

Agradeço a consideração, mas ninja só no status que me deram.

Como pode perceber já era bem tarde qdo olhei sua rotina, e com certeza dá para dar mais uma enxugada na mesma, mas o sono já estava me pegando, e se ainda for precisar e se o fator tempo ajudar faço uma analise mais detalhada pois tem varias instruções que podem ser substituidas e reduzidas eliminando alguns termos como o select que em boa parte não precisamos.

[]s

Eu só não consegui entender a função para dar o loop "sMsg = MsgBox("Deseja Continuar", vbYesNo)"

Como fazer para que, ao clicar Sim, ele execute o Sub InputBoxDatas ???

Eu só não consegui entender a função para dar o loop "sMsg = MsgBox("Deseja Continuar", vbYesNo)"

Como fazer para que, ao clicar Sim, ele execute o Sub InputBoxDatas ???

5 minutinhos antes de sair para o almoço, troque pela a abaixo e veja se resolve:

Sub InputBoxDatasComDesicao()

Dim resultado As VbMsgBoxResult
          
inicio:
        
    sDatas = InputBox("Entre com a Data:", "Inputbox")
       
    If StrPtr(sDatas) = 0 Then
        MsgBox "Você Cancelou!"
       
    Else
           
        If sDatas = "" Then
            MsgBox "Você não digitou nada e clicou em OK"
           
        Else
                
            Call ArrumarData_AF_AF
            resultado = MsgBox("Deseja executar novamente esta ação?", vbYesNo, "Tomando uma decisão")
                
            If resultado = vbYes Then
                MsgBox "Você acaba de confirmar a ação"
                GoTo inicio
            Else
                MsgBox "Você acaba de recusar a ação"
                Exit Sub
            End If

        End If
           
    End If
       
End Sub

Fiz uma adaptação aproveitando a dica do link abaixo somente na rotina que lhe passei anteriormente :
VBA – Confirmando decisões com o MsgBox (VbMsgBoxResult)
http://www.tomasvasquez.com.br/blog/mic ... gboxresult

[]s

Quando eu crescer quero ser "que nem" você velhão!!!!

Ficou PERFEITO!!!