VBA Loop através da mesa

' 
for i = 1 to Range("Table1").Rows.Count
   Range("Table1[Column]")(i)="PHEV"
next i
Cheerful Chipmunk