Macro to autofill

I hope i can describe this clearly. I have a workbook with 20 worksheets, each worksheet contains data about a particular salesman, all of the column headers are consistent.

What i want to do is insert a new column as Col A and autofill the salesmans name down the Col A on each worksheet, so i can then combine all 20 tabs into one tab, so i know which sales belong to who. On each worksheet the individual's names are found in Cell D5 . The number of rows vary on each worksheet.

I need a macro to complete the insertion of a new column A and the autofill of the salesmans names on each tab of the workbook, in one click. Is this doable?
Thanks in advance for any assistance you can provide!

Jrb
thank you, that worked great, I just realized that i have two tabs (positioned in front of the 20 tabs i need the code applied to), how do i modify your code... to not insert and autofill on the first two tabs... ?
again, thanks for your help!!!

Sub AutoFill_2()
Dim LR As Long
Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In ActiveWorkbook.Worksheets
If Not ws.Name = "Sheet1" And Not ws.Name = "Sheet2" Then
With ws
.Columns("A:A").Insert
LR = .Range("B" & .Rows.Count).End(xlUp).Row
.Range("A2:A" & LR).Value = .Range("E5").Value
End With
End If
Next ws
Application.ScreenUpdating = True
End Sub

I have another request, in trying to clean up my tabs, I need to delete the full row, in any row below Row 9, where there is no data in Column G. Again leaving sheet 1 & 2 separated out from from the deletions. What code would you suggest?