Boa tarde, como sempre falamos, o ideal é postar a planilha pra evitar erros ou multitrabalhos desnecessários.
Mas segue minha sugestão:

Sub executa()
Dim wsheet As Worksheet
Dim UltiLinha As Long
Set wsheet = Sheets("pCalculos")
wsheet.Select
wsheet.Range("u1").Select
UltiLinha = wsheet.Range("u1048576").End(xlUp).Row

For x = 1 To UltiLinha
If Cells(x, 21).Value = 7 Then
Cells(x, 31).Value = Cells(x, 26).Value
End If
Next
Msgbox "Dados copiados!"

Esse código percorre por toda coluna U em busca de valores iguais a 7 para poder copiar os dados da coluna Z para a AE.