With
frm
ActiveCell.Value = .Datum.Value
ActiveCell.Offset(0, 1).Value = .ComboBox1.Value
ActiveCell.Offset(0, 2).Value = .ComboBox2.Value
ActiveCell.Offset(0, 6).Value = .TextBox1.Value
ActiveCell.Offset(0, 36).Value = .TextBox2.Value
ActiveCell.Offset(0, 35).Value = .ComboBox3.Value
ActiveCell.Offset(0, 82).Value = .TextBox3.Value
ActiveCell.Offset(0, 83).Value = .TextBox4.Value
ActiveCell.Offset(0, 84).Value = .TextBox5.Value