اخي سك بابك
هذا الكود بعد التعديل
Sub Button11_Click()
Dim c As Range
For Each c In Sheet1.[e4:e13]
If c = True Then
Sheet2.[a5000].End(xlUp).Offset(1, 0).Resize(1, 5) = _
Range(c, c.Offset(0, -4)).Value
Range(c, c.Offset(0, -4)) = Empty
Else
GoTo 1
End If
1 Next c
End Sub