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