Need Help With Creating Sheets and Compiling Data

Probably:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 1 Then
Call BBWidgets(Target)
End If: End Sub

Excel has its idiosyncrasies!