title: Loops with advanced filter, new criteria every Loop
body: <p>I have this code:</p>
  
  <pre><code>Sub omgifthisworks()
  Sheets("data").Select
  Columns("A:A").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
      Sheets("log").Range("A1:A4"), Unique:=False
  Sheets("Data").Select
  Sheets("Data").Copy After:=Sheets(3)
  ActiveSheet.Name = Sheets("banks").Range("A2").Value
  
  enter code here
  </code></pre>
  
  <p>It's function is pretty basic. Is it possible to create a Loop where this code will create as many new worksheets as I have cells in column "A" in my "banks" worksheet?
  Is it also possible to have the loop move the filter criteria on column to the right and select only as many cells as there is data?</p>
  
  <p>The end result that I'm hoping to achieve is code that will create many new sheets of data with different names that have data inside which is filtered by new criteria every time. </p>