Hi,
i have 2 Sub, the first is on 2 cells, but i must put on
all column "F"
1-This is the first
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
-------------------------------------
2-this the second sub TO CORRECT
-------------------------------------
Sub second ()
n_row = 2
Do While Cells(n_row, 16) = "NOT FOUND"


Cells(n_row, 5).Select
Selection.Copy

Cells(n_row, 20).Select
'Here i need a special pasting
Selection.PasteSpecial Paste:=xlValues,
Operation:=xlAdd, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Selection.Copy
Cells(n_row, 5).Select
Selection.Copy
'Cells(n_row, 15) = Val(Cells(n_row, 2))
n_row = n_row + 1
Loop
End Sub

How can i correct?
Thanks