ترحيل والأستدعاء حسب اسم العميل

E7] = ListBox1.Value
 With Sheets("Data")
    LR = .[B10000].End(xlUp).Row
        For r = 4 To LR
            x = .Cells(r, 2).Value
            If Format(x, "#") = ListBox1.Value Then GoTo 10
        Next r
10  If r <> LR Then n_LR = .Cells(r, 2).End(xlDown).Row - 1: GoTo 20
    n_LR = .[H10000].End(xlUp).Row
20  .Range("G" & r & ":J" & n_LR).Copy ([C12])
    [d8] = .Cells(r, 3)
    [D9] = .Cells(r, 4)
    [F9] = .Cells(r, 5)
    [D10] = .Cells(r, 6)
 End With
 Me.Hide
End Sub

Private Sub CommandButton2_Click()
Call deleteRange
[E7] = ListBox1.Value
 With Sheets("Data")
    LR = .[B10000].End(xlUp).Row
        For r = 4 To LR
            x = .Cells(r, 2).Value
            If Format(x, "#") = ListBox1.Value Then GoTo 10
        Next r
10  If r <> LR Then n_LR = .Cells(r, 2).End(xlDown).Row - 1: GoTo 20
    n_LR = .[H10000].End(xlUp).Row
20  .Range("G" & r & ":J" & n_LR).EntireRow.Delete Shift:=xlUp
 End With
Me.Hide
End Sub

Private Sub Label2_Click()
Me.Hide
End Sub

Private Sub ListBox1_Click()

End Sub

Private Sub UserForm_Activate()
Dim x
ListBox1.Clear
'ÍÕÑ ÚÏÏ ÇáÝæÇÊíÑ ÇáãæÌæÏÉ ÈÇáæÑÞÉ ÏÇÊÇ
    With Sheets("Data")
        LR = .[B10000].End(xlUp).Row
            For r = 4 To LR
                x = .Cells(r, 2).Value
                If x <> "" Then ListBox1.AddItem x
            Next r
    End With
End Sub