유저폼으로 표에 데이타를 입력하는 방법

Private Sub btn1_Click()
 
    Dim sh As Worksheet
    Set sh = ThisWorkbook.Sheets("DATA")
 
    Dim tblDATA As ListObject
    Set tblDATA = sh.ListObjects("DATA")
 
 
    Dim newRow As Long
    newRow = tblDATA.ListRows.Count + 1
 
    With 입력
 
        tblDATA.ListColumns("날짜").DataBodyRange(newRow, 1).Value = .TextBox1.Value
        tblDATA.ListColumns("입출").DataBodyRange(newRow, 1).Value = .TextBox2.Value
        tblDATA.ListColumns("업무번호").DataBodyRange(newRow, 1).Value = .TextBox3.Value
        tblDATA.ListColumns("업체").DataBodyRange(newRow, 1).Value = .TextBox4.Value
        tblDATA.ListColumns("제품명").DataBodyRange(newRow, 1).Value = .TextBox5.Value
        tblDATA.ListColumns("제품번호").DataBodyRange(newRow, 1).Value = .TextBox6.Value
        tblDATA.ListColumns("제품수량").DataBodyRange(newRow, 1).Value = .TextBox7.Value
        tblDATA.ListColumns("제품단가").DataBodyRange(newRow, 1).Value = .TextBox8.Value
        tblDATA.ListColumns("모델넘버").DataBodyRange(newRow, 1).Value = .TextBox9.Value
        tblDATA.ListColumns("제조원가").DataBodyRange(newRow, 1).Value = .TextBox10.Value
        tblDATA.ListColumns("입고가격").DataBodyRange(newRow, 1).Value = .TextBox11.Value
        tblDATA.ListColumns("출고가격").DataBodyRange(newRow, 1).Value = .TextBox12.Value
        tblDATA.ListColumns("입고날짜").DataBodyRange(newRow, 1).Value = .TextBox13.Value
        tblDATA.ListColumns("보관장소").DataBodyRange(newRow, 1).Value = .TextBox14.Value
        tblDATA.ListColumns("담당부서").DataBodyRange(newRow, 1).Value = .TextBox15.Value
 
    End With
End Sub

Private Sub btn2_Click()
 
    Dim sh As Worksheet
    Set sh = ThisWorkbook.Sheets("DATA")
 
    Dim tblDATA As ListObject
    Set tblDATA = sh.ListObjects("DATA")
 
    Dim 날짜, 입출, 업무번호, 업체, 제품명, 제품번호, 제품단가, 세부구분, 제조원가, 입고가격, 출고가격, 입고날짜, 보관장소, 담당부서, 제품수량
 
    With 입력
        날짜 = .TextBox1.Value
        입출 = .TextBox2.Value
        업무번호 = .TextBox3.Value
        업체 = .TextBox4.Value
        제품명 = .TextBox5.Value
        제품번호 = .TextBox6.Value
        제품단가 = .TextBox7.Value
        세부구분 = .TextBox8.Value
        제조원가 = .TextBox9.Value
        입고가격 = .TextBox10.Value
        출고가격 = .TextBox11.Value
        입고날짜 = .TextBox12.Value
        보관장소 = .TextBox13.Value
        담당부서 = .TextBox14.Value
        제품수량 = .TextBox15.Value
    End With
 
 
    Dim newRow As Long
    newRow = tblDATA.ListRows.Count + 1
 
        tblDATA.ListColumns("날짜").DataBodyRange(newRow, 1).Value = 날짜
        tblDATA.ListColumns("입출").DataBodyRange(newRow, 1).Value = 입출
        tblDATA.ListColumns("업무번호").DataBodyRange(newRow, 1).Value = 업무번호
        tblDATA.ListColumns("업체").DataBodyRange(newRow, 1).Value = 업체
        tblDATA.ListColumns("제품명").DataBodyRange(newRow, 1).Value = 제품명
        tblDATA.ListColumns("제품번호").DataBodyRange(newRow, 1).Value = 제품번호
        tblDATA.ListColumns("제품단가").DataBodyRange(newRow, 1).Value = 제품단가
        tblDATA.ListColumns("세부구분").DataBodyRange(newRow, 1).Value = 세부구분
        tblDATA.ListColumns("제조원가").DataBodyRange(newRow, 1).Value = 제조원가
        tblDATA.ListColumns("입고가격").DataBodyRange(newRow, 1).Value = 입고가격
        tblDATA.ListColumns("출고가격").DataBodyRange(newRow, 1).Value = 출고가격
        tblDATA.ListColumns("입고날짜").DataBodyRange(newRow, 1).Value = 입고날짜
        tblDATA.ListColumns("보관장소").DataBodyRange(newRow, 1).Value = 보관장소
        tblDATA.ListColumns("담당부서").DataBodyRange(newRow, 1).Value = 담당부서
        tblDATA.ListColumns("제품수량").DataBodyRange(newRow, 1).Value = 제품수량
 
 
End Sub