أخى الفاضل
أولا : لك منى دعوة طيبة لتغيير اسم الظهور الى اللغة العربية حتى يسهل التواصل بيننا
ثانيا : تفضل ما تريد
Sub ragab()
Set sh = Sheets("sheet2")
LR = sh.Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To LR Step 6
Range("B3:G3").Value = Application.WorksheetFunction.Transpose(sh.Cells(i, 1).Resize(6).Value)
ActiveWindow.SelectedSheets.PrintOut
Next
Set sh = Nothing
End Sub
TEST.rar