السلام عليكم
أخي الكريم ضع هذا الكود في الملف
Sub MyPrint5()
Application.ScreenUpdating = False
With Sheets("صفحة الترحيل")
With .UsedRange
For i = 2 To .Rows.Count
If .Cells(i, 2).Value = "" Then
.Cells(i, 2).EntireRow.Hidden = True
End If
Next i
End With
.PrintOut
.Rows.Hidden = False
End With
Application.ScreenUpdating = True
End Sub