Macro to copy and paste based on criteria to 11 separate sheets

Hi

One way. Does assume that all 11 output sheets exist

Sub aaa()
  startrow = 1
  thisrow = 0
  For i = 1 To 11
    Do
      thisrow = thisrow + 1
    Loop Until Cells(thisrow, 3) <> i
    lastrow = thisrow - 1
    Range("A" & startrow & ":CI" & lastrow).Copy Destination:=Sheets("Sheet" & i).Range("A1")
    startrow = thisrow
  
  Next i
End Sub

rylo