Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range('C2:C9')) Is Nothing Then
Target = 3
If Target.Row / 2 = Int(Target.Row / 2) Then
Cells(Target.Row + 1, 6) = Target.Offset(0, -1)
Target.Offset(1, 0) = Empty
Else
Cells(Target.Row, 6) = Target.Offset(0, -1)
Target.Offset(-1, 0) = Empty
End If
End If
End Sub