hi
i would like to capter non duplicate rows
here i have to pull everyhting
Code:
Sub FrmShow2()
'Application.ScreenUpdating = False
Dim wb As Workbook, wks As Worksheet
    Set wb = ThisWorkbook
    Set wks = wb.Sheets("Sheet2")

 

Dim Mycel As Range
Dim lrow As Long
Dim i As Integer

lrow = wks.Range("C65536").End(xlUp).Row
For i = 1 To lrow
    With UserForm2 '.lstEmp
        If Cells(i, 7).Text = "" Then
      .lstEmp.AddItem Cells(i, 3).Value
          
        End If
    End With
Next i
UserForm2.Show
End Sub