Tạo form nhập liệu "nhật ký chung" trong excel

[minhcong.tckt]

Tại sheet 1 : Sheet nhật ký chung, em đã làm user form để khi nhập liệu vào form sẽ link đến sheet NKC, nhưng em đang vướng ở nhập định khoản của 1 nghiệp vụ có nhiều tài khoản
(1nợ nhiều có hoặc ngược lại)
Với cột Tk nợ, TK có thì code như thế nào để mỗi 1 tài khoản sẽ là 1 hàng

Nợ TK 154 (A1)
Có TK621 (B2)
Có TK622 (B3)

 

[minhcong.tckt]

Private Sub OKButton_Click()
Sheets("Sheet2").Activate
Nextrow = Application.WorksheetFunction.Counta(Range("A:A")+ 1
Cells(NextRow,1) = TextName.Text
TextName.Text = ""
PotionUnknown = True
TextName .SetFocus
End Sub

Form nhập liệu mới có 1 text name

 

[minhcong.tckt]

Tạo Form nhập liệu cho sổ nhật ký chung sau đây