O código abaixo vai fazer algo próximo ao q vc quer desde q vc deixe a célula da linha 2 e coluna do jogador selecionada.
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Value = "x"
Selection.End(xlUp).Select
Se sua dúvida foi respondida marque o tópico como RESOLVIDO usando o botão com marca verde. 
Postado : 06/09/2016 8:40 am