VBA Excel cycle through sheets, find last row in table and autofill with data

[VfTom]

Hello All,

I need a script that cycles through all the sheets in a workbook and adds 2 (or more) columns at the end of the table of each sheet (except the first sheet).
In this case I have a YES and NO column to be added.

The added columns YES and NO need to be autofilled all the way down to the end with YES or NO like in the example here below.

I have the below script but it doesn't work unfortunately:

Sub LoopSheetsAddDataFilledColumns()

Dim LastRow As Long
Dim LastCol As Long
Dim iRow As Long

Dim ws As Worksheet

For Each ws In Worksheets

Set ws = Sheets(2)

With ws
LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column

.Columns(LastCol + 1).EntireColumn.Insert
.Cells(1, LastCol + 1).Value = "YES"
.Columns(LastCol + 2).EntireColumn.Insert
.Cells(1, LastCol + 2).Value = "NO"

End With

Next

End Sub

- this script adds only a few columns with YES and NO on the first sheet,
- it doesn't fill the columns all the way to the end,
- It doesn't make exceptions for particular sheets,

Can someone please help update this scrip? Thank you in advance.

 

[mumps]

It would be easier to help if you could use the XL2BB add-in (icon in the menu) to attach screenshots (not pictures) of your first sheet and at least one of the other sheets. Alternately, you could upload a copy of your file to a free site such as www.box.com or www.dropbox.com. Once you do that, mark it for 'Sharing' and you will be given a link to the file that you can post here. Explain in detail what you want to do referring to specific cells, rows, columns and sheets using a few examples from your data (de-sensitized if necessary).

adds 2 (or more) columns at the end of the table of each sheet

Also, please clarify how you determine how many columns to add to each sheet and what the content of those added columns will be.