Sub AddAColumn()
Dim varUserInput As Variant
Dim ColNum As Variant
varUserInput = InputBox("Enter Column Number where you want to add a Column:", _
"What Column?")
If varUserInput = "" Then Exit Sub
ColNum = varUserInput
Rows(ColNum & ":" & ColNum).Insert Shift:=xlDown
Rows(ColNum...