Dl = .Range("A65000").End(xlUp).Row + 1
.Cells(Dl, 1) = ComboBox1
.Cells(Dl, 2) = ComboBox2
.Cells(Dl, 3) = ComboBox3
.Cells(Dl, 4) = ComboBox4
.Cells(Dl, 5) = ComboBox5
.Cells(Dl, 6) = CDbl(ComboBox6)
.Cells(Dl, 7) = ComboBox7
With .Range("A4:G" & Dl)
.Sort Key1:=.Range("A4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
.HorizontalAlignment = xlLeft
End With
End With
End If
End Sub