VBA to autofill column across worksheets. Worksheets have dynamic table range

Hello All,
I have a table in each worksheet in a file. Each worksheet has a dynamic table range. I want to copy a value adjacent to the beginning of the table (not included in coding) and auto fill that value down to the bottom of each table (coding below). For some reason my coding works for individual worksheets but not across all worksheets. Please advise.

Column B	Column C
EA1.1	Step 1
	Step 2
	Step 3
	Step 4
	Step 5

Sub Test2()
Application.EnableEvents = False 'turn events off!
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name <> "By_ProcessID" Then
ws.Range("B33").Select
Selection.AutoFill Destination:=ws.Range("B33:B" & Range("B1000000").End(xlUp).Row), Type:=xlFillCopy
End If
Next ws
Application.EnableEvents = True 'turn events back on - this is critical, otherwise no events will fire again

End Sub

If this code works for one sheet it should work for them all

Please Login or Register  to view this content.

I should clarify, it works on individual sheets without the IF statements

Selection.AutoFill Destination:=ws.Range("B33:B" & Range("C1000000").End(xlUp).Row), Type:=xlFillCopy <- This was corrected. now it works on the first sheet, but will not continue to cycle through all sheets

Although I don't see where you are getting the value from?

You would need to include the reference value in the loop if you want it to work across all pages

Please Login or Register  to view this content.

The value is pasted to cell B33 in another macro, which works fine. I was going to combine the two as soon the autofill beings to work across all sheets
It's not accepting your change: 'Selection.AutoFill Destination:=ws.Range(ws.Range("B33"), ws.Range("B33").End(xlDown)), Type:=xlFillCopy'

Yea i would need to see the whole code to get it to work properly or a sample workbook!

Or

Please Login or Register  to view this content.

The reference value is not being included when I input 'ws.Range("B33").Select' ?

I apologize, my experience with VBA is somewhat limited

THANKS AB33! Worked like a charm!

actually try this

Please Login or Register  to view this content.

you would want the last row in column C correct?

Kahmed,
This is for second time you have not used code tags with your code as per forum's rule. Please edit the above code and put it in code tags.

because you specified UCase for the ws.Name and compared it to a string that has lowercase. try

Please Login or Register  to view this content.