تفضل اخى الكريم هذا كود الأستاذ الكبير ياسر خليل لعله يفى بالغرض
Sub Macro01()
Dim x3 As Long
Dim x4 As Long
a = MsgBox("åá ÊÑíÏ ØÈÇÚÉ ÇáÇä ¿", vbYesNo + vbQuestion, "ØÈÇÚÉ")
If a = vbYes Then
With ActiveSheet
Dim Numcop As Integer
Numcop = Application.InputBox("ÃÏÎá ÚÏÏ ÇáäÓÎ ááØÈÇÚÉ:", "ßã ÚÏÏ ÇáäÓÎ?", 1, Type:=1)
If Numcop = 0 Then
Exit Sub
ElseIf Len(Numcop) > 0 Then
ActiveWindow.SelectedSheets.PrintOut copies:=Numcop
Exit Sub
End If
End With
Skipper:
x3 = Sheets("DATA").Range("a1000").End(xlUp).Row + 1
x4 = Sheets("aaa").Range("B24").End(xlUp).Row
Sheets("DATA").Range("B" & x3).Resize(x4 - 5, 21) = Sheets("aaa").Range("B6").Resize(x4 - 5, 21).Value
End If
End Sub