Try:

Private Sub CommandButton1_Click()
Dim rng1 As Range, rng2 As Range
Dim rw As Long
rw = Cells(Rows.Count, 1).End(xlUp).Row + 1
rw = Application.Max(rw, 10)
Set rng1 = Range("B1:B4")
Set rng2 = Range(Cells(rw, 1), Cells(rw, 4))
rng2.Value = Application.Transpose(rng1.Value)
rng1.ClearContents
End Sub

Regards,
Greg