Sub OFFICNA()
Dim LR As Long, LR2 As Long, ws As Worksheet, ws2 As Worksheet
Set ws = Sheets("البيانات")
Set ws2 = Sheets("تقرير الصلاحية")
LR = ws.Range("B" & Rows.Count).End(xlUp).Row
LR2 = ws2.Range("B" & Rows.Count).End(xlUp).Row
If ws.Range("B2").Value = "" Then
MsgBox ("لا توجد بيانات لترحيلها")
Else
ws.Range("B2:b" & LR).Copy ws2.Range("B" & LR2 + 1)

ws.Range("R2:R" & LR).Copy ws2.Range("C" & LR2 + 1)

ws.Range("U2:U" & LR).Copy ws2.Range("E" & LR2 + 1)


ws2.Select
End If
End Sub