Insert column and past from input box

[Dardus]

Thank you for your help. I am not getting this at the moment. I am sure I just need sleep.
Need to insert a column before E, Label it Date4, post the input provided from an inputbox in new E column (except the header):

Name	Date1	Date2	Date3	Code	Value1	Value2
Bob	5/1/2017	5	2017	123d	548h548	4/24/2017
Smith	5/1/2017	5	2017	542d	879q312	5/15/2016
Frank	5/1/2017	5	2017	594f	125q632	3/2/2016
Sam	5/1/2017	5	2017	668s	978q888	12/12/2017
Peter	5/1/2017	5	2017	445r	879q688	3/6/2008
David	5/1/2017	5	2017	684r	558q468	7/1/2011

<tbody>
</tbody>

To:

Name	Date1	Date2	Date3	Date4	Code	Value1	Value2
Bob	5/1/2017	5	2017	Inputbox value	123d	548h548	4/24/2017
Smith	5/1/2017	5	2017	Inputbox value	542d	879q312	5/15/2016
Frank	5/1/2017	5	2017	Inputbox value	594f	125q632	3/2/2016
Sam	5/1/2017	5	2017	Inputbox value	668s	978q888	12/12/2017
Peter	5/1/2017	5	2017	Inputbox value	445r	879q688	3/6/2008
David	5/1/2017	5	2017	Inputbox value	684r	558q468	7/1/2011

<tbody>
</tbody>

 

[JLGWhiz]

Sub insertFill()
Dim dt As String
dt = InputBox("Enter Date", "DATE")
    If dt = "" Then Exit Sub
Columns(5).Insert
Range("E2", Cells(Rows.Count, 4).End(xlUp).Offset(, 1)) = dt
End Sub

 

[Dardus]

Thank you for the quick reply. I should have noted that the amount of rows is undetermined and can fluctuate for each time a new sheet is created. Therefore the " Range("E2", Cells(Rows.Count, 4).End(xlUp).Offset(, 1)) = dt " would not work. Is there a way to make it post the value for the number of rows for that spreadsheet and not the entire column (surpassing where the data cuts off)?

 

[JLGWhiz]

Sub insertFill()
Dim dt As String
dt = InputBox("Enter Date", "DATE")
    If dt = "" Then Exit Sub
Columns(5).Insert
Range("E2", Cells(Rows.Count, 4).End(xlUp).Offset(, 1)) = dt
End Sub

that's strange, it seemed to work fine on my system. That syntax is for a dynamic range, not a static one. It uses column D to determine the number of rows to fill.