I am using this code which finds the next empty cell after data.What do i need to change in the code so the cell also fills in with color Yellow?

Thank you

James

Private Sub CommandButton1_Click()
ActiveSheet.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Select
Interior.Color = 65535
End Sub