Dynamic Lists

A lot of details are missing in your post, but the basic structure for what you want is below. I tried to comment what you need to modify, based on how your sheets are laid out.

The code belongs in Sheet1's object.

If you need help modifying the code, please post your workbook or an example workbook that mirrors you workbook's formatting.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 1 Then ' whatever column you're entering the companies into
                          ' where column A = 1, B = 2, etc.
    Set ws2 = Worksheets("Sheet2")
    Set ws3 = Worksheets("Sheet3")
    
     'Change the "A"s below to whatever columns you want the values to go into / sort
    LastRow2 = ws2.Cells(Rows.Count, "A").End(xlUp).Row
    LastRow3 = ws3.Cells(Rows.Count, "A").End(xlUp).Row
    
   
    ws2.Cells(LastRow2 + 1, "A").Value = Target.Value
    ws3.Cells(LastRow3 + 1, "A").Value = Target.Value

    ws2.Sort.SortFields.Clear
    ws2.Sort.SortFields.Add Key:=Range("A1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ws2.Sort
        .SetRange Range("A:A")
        .Header = xlYes
        .Apply
    End With
    
    ws3.Sort.SortFields.Clear
    ws3.Sort.SortFields.Add Key:=Range("A1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ws3.Sort
        .SetRange Range("A:A")
        .Header = xlYes
        .Apply
    End With
End If

End Sub

Attached is an example.Example Dynamic Workbook.xlsx

Here you go. Works perfectly on the example you provided and the description you gave. Let me know if you need any modifications.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Application.ScreenUpdating = False

If Target.Column = 1 Then

    Set ws2 = Worksheets("Ex Sheet Prod A")
    Set ws3 = Worksheets("Ex Sheet Prod B")
    
 
    LastRow2 = ws2.Cells(Rows.Count, "A").End(xlUp).Row
    LastRow3 = ws3.Cells(Rows.Count, "A").End(xlUp).Row
    
    ws2.Rows(LastRow2 + 1).Insert Shift:=xlDown
    ws2.Rows(LastRow2).Copy
    ws2.Rows(LastRow2 + 1).PasteSpecial Paste:=xlPasteFormats
    Application.CutCopyMode = False
    
    ws3.Rows(LastRow3 + 1).Insert Shift:=xlDown
    ws3.Rows(LastRow3).Copy
    ws3.Rows(LastRow3 + 1).PasteSpecial Paste:=xlPasteFormats
    Application.CutCopyMode = False
    
    ws2.Cells(LastRow2 + 1, "A").Value = Target.Value
    ws3.Cells(LastRow3 + 1, "A").Value = Target.Value

    ws2.Sort.SortFields.Clear
    ws2.Sort.SortFields.Add Key:=Range("A1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ws2.Sort
        .SetRange Range("A:W")
        .Header = xlYes
        .Apply
    End With
    
    ws3.Sort.SortFields.Clear
    ws3.Sort.SortFields.Add Key:=Range("A1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ws3.Sort
        .SetRange Range("A:W")
        .Header = xlYes
        .Apply
    End With
End If
Application.ScreenUpdating = True
Application.EnableEvents = True

End Sub

Thanks! Looks good but one additional step. There are other formulas on the page, specifically sums that take place at the bottom and ends of each row and column. Can those be automatically updated as well to include the added rows? Also, when the rows are added, what do I need to change in the formula so it sorts alphabetically?

what do I need to change in the formula so it sorts alphabetically

It should already sort alphabetically, and it does for me. That's what the last part of the code, starting at ws2.Sort.SortFields.Clear, is doing. Like I said, it works for me, can you double check, please?

Can those be automatically updated as well to include the added rows

Yes. See code, you can add the code below right before Application.ScreenUpdating = True near the end of the code.

For i = 4 To 19
Col = Split(ws2.Cells(LastRow + 6, i).Address, "$")(1)
ws2.Cells(LastRow + 6, i).Formula = "=SUM(" & Col & "2:" & Col & LastRow + 1 & ")"
Next


For i = 4 To 19
Col = Split(ws3.Cells(LastRow + 6, i).Address, "$")(1)
ws3.Cells(LastRow + 6, i).Formula = "=SUM(" & Col & "2:" & Col & LastRow + 1 & ")"
Next

So I've added the code you have referenced here but it's not updating the sum totals at the bottom under "weekly results" nor is it adding it to the columns for Feb and March in each new row.

I've attached the workbook again here with the updates you've provided.

Oops, simple syntax error on my part concerning LastRow2 and LastRow3. Replace the previous code i posted with this:

For i = 4 To 19
Col = Split(ws2.Cells(LastRow2 + 6, i).Address, "$")(1)
ws2.Cells(LastRow2 + 6, i).Formula = "=SUM(" & Col & "2:" & Col & LastRow2 + 1 & ")"
Next


For i = 4 To 19
Col = Split(ws3.Cells(LastRow3 + 6, i).Address, "$")(1)
ws3.Cells(LastRow3 + 6, i).Formula = "=SUM(" & Col & "2:" & Col & LastRow3 + 1 & ")"
Next

Look at column H & T. These do not update but the above does fix the weekly results at the bottom.