Hi carl,

Just replace
For i = 6 To 7
Range("G" & i).Select
Dim S As String
S = "=" & Range(i).Value
Selection.Copy

By

For i = 6 To 7
Range("G" & i).Copy



HTH
Cheers
Carim