I have this formula that was given to me here 1 year ago (wich i only have to
thanks), and it works just fine, but now i have a new aplicattion for it and
need just an adjustement but i don't to do it. I've tryed to change the
simple things in formula, but didn't worked, so i ask the experts! Which i
Thank in advanced.

I have a sheet that has this data. f.e.:
A b C D E
1 Y Date 434
2 K Date 456
3 J Date 56
4 K Date 89

What i want is to extract the "letter" K, to sheet K, ad other letters to
sheets with their letter. I can do this with the formula i present next:
Sub Ferias()
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
If Cells(i, "B").Value = "K" Then
iRow = iRow + 1
Cells(i, "C").Resize(, 10).Copy Worksheets("Folha2").Range("A" &
iRow)
End If
Next i
End Sub

The problem is that i want the sheet K(f.e.) starts in "A7"(f.e) instead of
A1, to make the many sheet's that i will have ready to print, with the
formatt that i want. And some little details, that i have in sheet. I know i
could copy the sheet where i have the data to sheet K, but who will work with
the sheet's can confuse.
Can someone help me?

Thanks