Sorry, I assigned a value to i twice, you can remove one:

Sub Macro1()
Dim i As Integer

If Range("A9") = "" Then
* * Range("A9").PasteSpecial xlPasteAll
* * * * Else
* * * * i = Range("A65536").End(xlUp).Row + 1
* * * * Cells(i, 1).PasteSpecial xlPasteAll
End If

End Sub