Solved: Need help creating macro to insert col

[cgannm]

Hi, I am seeking your help with creating a macro that will delete a Col C, insert a Col A, then name it,then populate the rows to end of data in next col with user input.

Please see example in attachment.

Thanks,
cgannm Attachment 9212

[Bob Phillips]

[vba]

Sub SomeCode()
Dim myInput As Variant

myInput = InputBox("Insert what type?")
If myInput <> "" Then

Columns(3).Delete
Columns(1).Insert
Range("A1").Value = "Tray"
Range("A2").Resize(Range("B2").End(xlDown).Row).Value = myInput
End If
End Sub
[/vba]

[cgannm]

Hi, Xid,thanks for helping. I am have one slight problem with "A2". The input value is populating one too rows. For example, "B2" has data up to row 10, script populates "A2" up to Row 11.

Thanks

[Bob Phillips]

Slight mod

[vba]

Sub SomeCode()
Dim myInput As Variant

myInput = InputBox("Insert what type?")
If myInput <> "" Then

Columns(3).Delete
Columns(1).Insert
Range("A1").Value = "Tray"
Range("A2").Resize(Range("B2").End(xlDown).Row - 1).Value = myInput
End If
End Sub
[/vba]