طلب عاجل

[malak 2018]

اريد تعديل هذا الكود بحيث عندما اطبع يتم طباعة صف فارغ اسفل كل صف به بيانات

 Sub Macro14()
 
  ActiveSheet.Range("$J$10:$J$510").AutoFilter Field:=1, Criteria1:="له دور ثانى"

    ActiveWindow.SelectedSheets.PrintPreview
    
    ActiveSheet.Range("$N$2:$N$771").AutoFilter Field:=1
     
End Sub

[malak 2018]

حد ممكن يساعدنى فى الموضوع دا عايز اعمل فلت الاول علشان اختار من لهم دور ثانى

ثم اثناء الطباعة اريد ان يظهر صف فارغ اسفل كل تلميذ له دور ثانى