Boa tarde!!

use o Autofill
http://msdn.microsoft.com/pt-br/library ... =office.15).aspx

Att

não consegui entender sera que poderia dar um exemplo como poderia usar no código abaixo:
Sub Alterar_Status()
If ActiveCell.Text = "" Then
ElseIf ActiveCell.Text = "AGUARDANDO" Then
ActiveCell.FormulaLocal = "=PROCV(A1;T3_Clientes!A:P;14;FALSO)"
ActiveCell.Offset(1, 0).Select
Call Alterar_Status
Else
ActiveCell.Offset(1, 0).Select
Call Alterar_Status
End If

Se entendi corretamente, veja se é isto :
Como utiliza ActiveCell definimos uma Variável para capturar a Linha e a inserimos na formula, assim assumirá sempre a Linha da celula Ativa :

    Dim iLin
    iLin = ActiveCell.Row

    If ActiveCell.Text = "" Then
    
    ElseIf ActiveCell.Text = "AGUARDANDO" Then
        
        'ActiveCell.FormulaLocal = "=PROCV(A1;T3_Clientes!A:P;14;FALSO)"
        ActiveCell.FormulaLocal = "=PROCV(A" & iLin & ";T3_Clientes!A:P;14;FALSO)"
        
        ActiveCell.Offset(1, 0).Select
        
        Call Alterar_Status
        
    Else
    
        ActiveCell.Offset(1, 0).Select
        
        Call Alterar_Status
    End If

[]s