cookies

اخي العزيز استخدم الكود التالي: Dim EndRow As Long For i = 1 To 1 EndRow = Sheets("Sheet7").Range("A1").CurrentRegion.Rows.Count Sheets("Sheet7").Cells(EndRow + 1, 1).Value = EndRow Sheets("Sheet7").Cells(EndRow + 1, 2).Value = Sheets("Sheet6").Cells(7, 4).Value Sheets("Sheet7").Cells(EndRow + 1, 3).Value = Sheets("Sheet6").Cells(7, 5).Value Sheets("Sheet7").Cells(EndRow + 1, 4).Value = Sheets("Sheet6").Cells(7, 6).Value Sheets("Sheet7").Cells(EndRow + 1, 5).Value = Sheets("Sheet6").Cells(7, 7).Value Next i Sheets("Sheet6").Range("d7:g7").ClearContents End Sub