السلام عليكم تحية طيبة وبارك اللة في جهودكم
احببت ان اذكركم مرة اخرى لتعديل الكود
اخ ياسر الكود يعمل كما يجب . اردت زيادة على الكود اذا نسيت اني مسحت ورحلت حركات عميل واردت
ان امسح نفس الاسم مرة اخرى ان يعطيني رسالة " لا يوجد حركات للعميل المذكور "
وطلب آخر بعد كل ترحيل لعميل معين في شيت (temp) ان يضع تحت آخر سطر للعميل خط فاصل ازرق او احمر
ذالك موضح داخل الملف . وشكرا جزيلا yosif test3.rar

وعليكم السلام
جرب الكود بهذا الشكل عله يفي بالغرض

Option Explicit

Sub Test()
    Dim ws              As Worksheet
    Dim wsSales         As Worksheet
    Dim wsCash          As Worksheet
    Dim wsTemp          As Worksheet
    Dim x               As Variant
    Dim str             As String
    Dim m               As Long

    Application.ScreenUpdating = False
        Set ws = ThisWorkbook.Worksheets("ارصدة اول المدة")
        Set wsSales = ThisWorkbook.Worksheets("مبيعات")
        Set wsCash = ThisWorkbook.Worksheets("نقدي")
        Set wsTemp = ThisWorkbook.Worksheets("temp")
    
        str = ws.Range("I2").Value
        x = Application.Match(str, ws.Columns(1), 0)
    
        If Not IsError(x) Then
            If ws.Cells(x, 3).Value <> 0 Then
                MsgBox "Balance Does Not Equal Zero", 64: Exit Sub
            Else
                m = wsTemp.Cells(Rows.Count, 2).End(xlUp).Row + 1
                With wsSales.Range("B3", wsSales.Range("B" & Rows.Count).End(xlUp))
                    .AutoFilter 1, str
                     If WorksheetFunction.CountA(wsSales.Columns(2).SpecialCells(xlCellTypeVisible)) = 1 Then MsgBox "No Sales": .AutoFilter: GoTo NX1
                    .Offset(1).EntireRow.Copy wsTemp.Range("A" & m)
                    .Offset(1).EntireRow.Delete
                    .AutoFilter
                End With
                m = wsTemp.Cells(Rows.Count, 2).End(xlUp).Row + 1
    
                With wsTemp.Range("A" & m & ":G" & m)
                    With .Borders(xlEdgeBottom)
                        .LineStyle = xlContinuous
                        .Color = -1003520
                        .TintAndShade = 0
                        .Weight = xlThick
                    End With
                End With
    
NX1:
                m = wsTemp.Cells(Rows.Count, 2).End(xlUp).Row + 1
                With wsCash.Range("B3", wsCash.Range("B" & Rows.Count).End(xlUp))
                    .AutoFilter 1, str
                    If WorksheetFunction.CountA(wsCash.Columns(2).SpecialCells(xlCellTypeVisible)) = 1 Then MsgBox "No Cash": .AutoFilter: GoTo NX2
                    .Offset(1).EntireRow.Copy wsTemp.Range("A" & m)
                    .Offset(1).EntireRow.Delete
                    .AutoFilter
                End With
                m = wsTemp.Cells(Rows.Count, 2).End(xlUp).Row + 1
                With wsTemp.Range("A" & m & ":G" & m)
                    With .Borders(xlEdgeBottom)
                        .LineStyle = xlContinuous
                        .Color = -1003520
                        .TintAndShade = 0
                        .Weight = xlThick
                    End With
                End With
            End If
NX2:
        End If
    Application.ScreenUpdating = True
End Sub

السلام عليكم تحية طيبة للجميع
اخ ياسر الخط يجب ان لا يكون متنقل المطلوب كل ما امسح عميل وارحلة ان يضع خط تحتة
ولقد ارفقت الملف موضح اكثر . وشكرا لكم جميعا yosif test33.rar

جرب حذف هذه الأسطر قبل سطر NX1

                m = wsTemp.Cells(Rows.Count, 2).End(xlUp).Row + 1
    
                With wsTemp.Range("A" & m & ":G" & m)
                    With .Borders(xlEdgeBottom)
                        .LineStyle = xlContinuous
                        .Color = -1003520
                        .TintAndShade = 0
                        .Weight = xlThick
                    End With
                End With

السلام عليكم تحية طيبة
lاولا اشكركم على الرد السريع
مسحت الاسطر كما هو موضح في الكود فلم يتغير شئ سانتظر الحل وشكرا جزيلا

ليس لدي فكرة عن المشكلة لديك الآن .. هذه الأسطر تقوم بوضع حد فاصل بعد عملية الترحيل وهذه الأسطر مكررة مرتين .. كل مرة لورقة عمل من ورقتي العمل المطلوب التعامل معهما
لربما يفيدك الأخوة الكرام في المنتدى حيث أنني لا أمتلك الوقت الكافي الآن