I must find "Not Found" in column P then:

n_row = 1
Do While Cells(n_row, 16) = "NOT FOUND"
Cells(n_row,20).Value = Cells(n_row,5).Value
HEre i need a code like down


n_row = nrow + 1
Loop

----Ok but i also must cut and like this down

Sub Macro4()
ActiveWindow.SmallScroll ToRight:=-2
Range("E73").Select
Selection.Copy
ActiveWindow.Zoom = 75
Range("Q73").Select
Selection.PasteSpecial Paste:=xlValues,
Operation:=xlAdd, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Selection.Copy
Range("E73").Select
ActiveSheet.Paste
Range("E76").Select
Application.CutCopyMode = False
Selection.Copy
Range("Q76").Select
Selection.PasteSpecial Paste:=xlValues,
Operation:=xlAdd, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Selection.ClearContents
Range("E76").Select
Selection.Copy
Range("Q76").Select
Selection.PasteSpecial Paste:=xlValues,
Operation:=xlAdd, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Selection.Copy
Range("E76").Select
ActiveSheet.Paste
End Sub