Hi Alfredo

To me it looks like you made a small typo, try this:

For i = Range("G1_F").Row + 1 To Range("G1_L").Row - 1
Cells(i, 7).Value = Cells(i, 5).Value
Next i

HTH,

Wouter