Hi,
try thiss code.
Private Sub CommandButton1_Click()
Dim lrow_v As Long
With Sheets("NEW DATA")
lrow = .Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1
.Cells(lrow, 1).Resize(, 3).Value = Array(TextBox1.Value, TextBox2.Value...