شكرا لك استاذنا وتم عمل المطلوب باستخدام الكود التالى وذلك بمساعدة مهندسى الموقع ( الاخ عبدالله )
مع الشكر
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
If [B3] = "" Or [B4] = "" Then
MsgBox "ادخل الييانات صحيحة "
Exit Sub
End If
Range("B1:B27").Copy
Sheets("in").Cells(1, Sheets("in").Range("Q3").End(xlToLeft).Column + 1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox "تم الترحيل"
End Sub