Private Sub CommandButton1_Click()
Dim n&
n = Range("b" & Rows.Count).End(xlUp).Row + 1
Cells(n, "b") = [d4]: [d4].ClearContents
Cells(n, "d") = [d6]: [d6].ClearContents
Range("b9:d" & n).Sort Range("b9"), xlAscending, Header:=xlYes
[d4].Select
End Sub