Ayuda Macro

Hola Foro:
Necesito vuestra ayuda, tengo un macro copiada que me falla y no se
porque?
el fallo me lo da en Do While Partida<>"" (Porque ?)
Sub Domino()

Dim Partida As Integer
Dim Pareja As Integer
Dim Tantos As Integer
Worksheets("Domino").Activate
ActiveSheet.Range("A4").Activate

Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Activate
Loop
Partida = Val(InputBox("(Return para finalizar:)", "Entra el Nº. de la
Partida"))

Do While Partida <> ""
Pareja = Val(InputBox("Entre el numero de la pareja:", "Entra el Nº. de la
Pareja"))
Tantos = Val(InputBox("Entre el numero de tantos obtenido:", "Tantos
Obtenidos"))
With ActiveCell
.Value = Partida
.Offset(0, 1).Value = Pareja
.Offset(0, 2).Value = Tantos

End With
ActiveCell.Offset(1, 0).Activate
Partida = InputBox("Entre el numero de Partida(Return para finalizar):",
"Partida")
Loop
End Sub
Gracias por vuestra atencion

Luis