Vba code to add column to worksheet

[becky halsey]

I have a spread sheet that inserts a blank row each time I enter information into the next to the last row. Now I need a code to insert a new column each time I reach a specific place. I am also wanting to auto adjust the print area according to the last cell used. Each sheet will be different. I am using the following code for inserting the row. Thanks in advance for your help!

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Row = [TotalVal].Row - 1 Then
      Application.EnableEvents = False
      [TotalVal].EntireRow.Insert
      Application.EnableEvents = True
   End If
End Sub