Private Sub CommandButton1_Click()
Dim arr As Variant

    ReDim arr(1 To 1, 1 To 4)
    arr(1, 1) = TextBox2.Value
    arr(1, 2) = TextBox3.Value
    arr(1, 3) = TextBox4.Value
    arr(1, 4) = TextBox5.Value

    With Sheets("Лист2")
        .[D9:G9] = arr
    End With
End Sub