Give this a try,

Private Sub Worksheet_Change(ByVal Target As Range)
Range ("C1").Select
ActiveCell.Offset(1, 0).Range("A1").Select
End If
End Sub
That should work, I am on an Island in the Pacific Right now and the
computer here doesn't have excel