ملف إدخال بيانات يحتاج تعديل

[rateo]

اشكركم على ما تقدمونه واستفدنا منه وارجو تعديل المرفق كما هو موضوح بداخله 

ادخال البيانات من الشيت بمنتهى السهولة.xlsm

[سليم حاصبيا]

جرب هذا الكود

Option Explicit
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
If ActiveSheet.Name <> "Sheet1" Then GoTo End_ME
 Dim targ_rg As Range

  If Range("B11") = vbNullString Then
    Set targ_rg = Range("B11")
  Else
    Set targ_rg = _
    Range("B11", Range("B10")).End(4).Offset(1)
  End If
 
 With targ_rg.Resize(, 3)
   .Value = _
    Application.Transpose(Range("E3").Resize(3))
   .Cells(1).Offset(, -1) = .Row - 10
 End With
Range("B10:D" & Rows.Count).Sort key1:=Range("B10"), Header:=1
End_ME:
Application.ScreenUpdating = True
End Sub

الملف مرفق

enter_data.xlsm

[rateo]

المعذرة تأخرت بالرد كنت في سفر

وشكرا لكم وبارك الله لكم في رزقكم وعلمكم