اتفضل اخى الفاضل
ان شاء الله يكون كما تريد ناقص جزئيه بسيطه ألا وهى لصق البيانات بدون معادلات والحفاظ على المعادلات بالشيت الاول
ان شاء الله ساحاول فيها
Sub PasteRowDelete()
Application.ScreenUpdating = False
Worksheets("ضع هنا اسم الشيت اللى سيتم النسخ منه").Select
ActiveCell.EntireRow.Select
Selection.Cut
Sheets("هنا ضع اسم الشيت اللى سيتم النسخ اليه").Select
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("ضع هنا اسم الشيت اللى سيتم النسخ منه").Select
Selection.Delete Shift:=xlUp
ActiveCell.Select
Application.ScreenUpdating = True
End Sub
بالتوفيق اخى ونرجو منك تغيير الاسم الى اللغه العربيه لنتعرف بشخصكم الطيب