求解VBA視窗輸入

想利用VBA製作一個視窗輸入，EXCEL A欄及B欄都是單純輸入數字。


請幫忙看一下以下程式碼，使用時一直沒辦法從A3開始，而且沒辦法自動換下一行，這樣的程式碼需要怎麼修改~~拜託各位了

'1.新增資料
r = Range("A2").End(xlDown).Row + 1
Cells(r, "A") = TextBox1.Text
Cells(r, "D") = TextBox2.Text
'2.清除資料
TextBox1.Text = ""
TextBox2.Text = ""
'3.游標放在TextBox1上
TextBox1.SetFocus