Excel Como otimizar essa macro?

[Josy Lobo]

Olá.

 

Tenho uma macro que gera uma Ordem de Serviço a partir de uma planilha de controle.

Ela funciona, mas eu queria otimizar essa parte:

 

     

   Sheets("Controle de Serviço").Select   
        Range("a5").Select
        Selection.End(xlDown).Select
        Selection.Copy
                   
        Sheets("Ordem de Serviço").Select
        Range("q1").Select
        ActiveSheet.Paste
        
    'Copia o período
        Sheets("Controle de Serviço").Select  
        Range("b5").Select
        Selection.End(xlDown).Select
        Selection.Copy
                   
        Sheets("Ordem de Serviço").Select
        Range("q2").Select
        ActiveSheet.Paste
        
        
    'Copia o veículo
        Sheets("Controle de Serviço").Select   
        Range("d5").Select
        Selection.End(xlDown).Select
        Selection.Copy
                   
        Sheets("Ordem de Serviço").Select
        Range("x1").Select
        ActiveSheet.Paste
     'Copia o técnico1
        Sheets("Controle de Serviço").Select  
        Range("e5").Select
        Selection.End(xlDown).Select
        Selection.Copy
                   
        Sheets("Ordem de Serviço").Select
        Range("d3").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False   'Colar especial somente valores
        
      'Copia o técnico2
        Sheets("Controle de Serviço").Select   
        Range("f5").Select
        Selection.End(xlDown).Select
        Selection.Copy
                   
        Sheets("Ordem de Serviço").Select
        Range("r3").Select
        ActiveSheet.Paste

       

Então.... ela fica indo e voltando.

Queria uma rotina pra que ela verificasse os dados das células na primeira planilha, jogasse em variáveis, e depois colasse na outra plan.

 

Já achei alguns modelos para usar o conteúdo da área de transferência, mas não consegui acertar.

 

Alguma dica?

 

tks!