Code for filling (worksheet attached)

Attached is a copy of the workbook that i need help with.

i have this code ( see below) that i want to edit so that when it data is filled in the section G46 it will then enter to the next cell needed eg. G71 etc.

the data is chosen from clicking on the fixed or portables area next to the cell.

 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If ActiveCell.Column = 6 Then

ActiveCell.Copy Destination:=Sheets("NAC HANDOVER").Range("G46")

End If

End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Column = 6 ThenSheets("NAC HANDOVER").Range("G46")=target.value
Range("G71").select
End Sub

I have a faint idea what your next question will be.

i cant seem to get this working??? is it me???

Is it possible that you could use the code in the worksheet attached above and attached to here ?


Thanks in advance