Hello
This is perhaps not very elegant and I've not tested it, unless I recreate your form but maybe something like:
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("SHEET2")
With iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
ws.Cells(iRow, 1).Value = Me.COMBOBOXWIDTH1
ws.Cells(iRow, 2).Value = Me.COMBOXBOXLENGTH1
ws.Cells(iRow, 3).Value = Me.COMBOBOXHEIGHT1
ws.Cells(iRow + 1, 1).Value = Me.COMBOBOXWIDTH2
ws.Cells(iRow + 1, 2).Value = Me.COMBOXBOXLENGTH2
ws.Cells(iRow + 1, 3).Value = Me.COMBOBOXHEIGHT2
ws.Cells(iRow + 2, 1).Value = Me.COMBOBOXWIDTH3
ws.Cells(iRow + 2, 2).Value = Me.COMBOXBOXLENGTH3
ws.Cells(iRow + 2, 3).Value = Me.COMBOBOXHEIGHT3
Hope this helps.
DBY
Bookmarks