User Form adding records in 2 rows at a time

Hi Misbah

Without seeing your workbook and UserForm, I'd suggest looking at this approach

 With ws
 .Cells(lRow, 1).Value = Me.txtDate.Value
 .Cells(lRow + 1, 1).Value = Me.txtDate.Value
 .Cells(lRow, 2).Value = Me.cboLocation.Value
 .Cells(lRow + 1, 2).Value = Me.cboLocation.Value
 .Cells(lRow, 4).Value = Me.cboPart.Value
 .Cells(lRow + 1, 4).Value = Me.cboPart.Value
 'Etc, etc
End With

If this doesn't work for you then I'll need to see the workbook with the UserForm and existing code. Let me know of issues.