Autofill destination by columns

How exactly do I autofill by columns?

In this example I recorded a macro and cleaned it up autofilling through E1 but it could be a number up to 50.

Sub Macro2()
Dim i As Long
i = InputBox("Enter number")
Range("B1").AutoFill Destination:=Range("B1:E1"), Type:=xlFillDefault
End Sub