I write code
'copy the data to the database
ws.Cells(iRow, 1).Value = Me.txtRB.Value
ws.Cells(iRow, 2).Value = Me.txtOP.Value
ws.Cells(iRow, 3).Value = Me.txtOPIS.Value
ws.Cells(iRow, 4).Value = Me.cboJM.Value
ws.Cells(iRow, 5).Value = Me.txtCJM.Value
ws.Cells(iRow, 6).Value = Me.txtUK.Value
ws.Cells(iRow, 7).Value = (txtCJM.Value * txtUK.Value)
I put values in first empty row
I don know how to make code for cell border