You could create a userform, and add two textboxes with the code:

Private Sub TextBox1_Change()
Range("a1").Value = TextBox1.Text
End Sub

Private Sub TextBox2_Change()
Range("a2").Value = TextBox1.Text
End Sub
Hope that helps