You're very nearly there!

Private Sub CommandButton1_Click()
ActiveSheet.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Interior.Color = 65535
End Sub
No need to select it first