Inputbox in one row

[samahiji]

Hello,
I've got the following code to write the value of inputbox in a column and I want the value to be in a row instead.

The code was provided by:

Rick Rothstein​

Sub SplitInputBoxEntryDown()
  Dim Parts() As String
  On Error GoTo NoText
  Parts = Split(Replace(InputBox("Enter the values separated by commas"), ", ", ","), ",")
  Columns("A").Clear
  With Range("A2").Resize(1 + UBound(Parts))
    .NumberFormat = "@"
    .Cells = Application.Transpose(Parts)
  End With
NoText:
End Sub

can anybody revise the code above to write the values of inputbox to row#1

 

[bebo021999]

Instead of:

 With Range("A2").Resize(1 + UBound(Parts))

use

 With Range("A2").Resize(1,1 + UBound(Parts))