اخي يوسف
كود المسلسل مع وضع الاحتياطي هو
n = 1
For i = 10 To 207
If Sheets("شيت طبع كشف الملاحظة").Cells(i, 22) <> "" Then
With Columns(4).Rows(300).End(xlUp)
.Offset(1, 0) = n
.Offset(1, 1) = Sheets("شيت طبع كشف الملاحظة").Cells(i, 23)
End With
End If
n = n + 1
Next
اخي بالنسبة للخلية A1 يتم استخدامها بالكود اذا كنت تريد استخدامها يجب تغيرها الي خلية اخري بمراجعة الكود و التعديل عليه