Try this..

Sub testing()

Dim shcount As Long
Dim sh As Worksheet
Dim Rcount As Long

shcount = ThisWorkbook.Sheets.Count
Set sh = ThisWorkbook.Sheets(1)

For i = 2 To shcount

sh.Range("b1").AutoFilter field:=2, Criteria1:=Sheets(i).Name
Rcount = Sheets(i).Cells(Rows.Count, 1).End(xlUp).Row + 1
sh.Range("A1:f1").Copy Destination:=Sheets(i).Range("A1")
sh.Range(Range("A1").Offset(1), Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeLastCell)). _
Copy Destination:=Sheets(i).Range("A2")

Next i

sh.AutoFilterMode = False

End Sub