Sub ProcessBlanks()



   Dim i As Integer
   Dim rng As Range
   For i = 1 To Worksheets("DAI EMP DATA-06-19-06").UsedRange.Rows.Count
       Set rng = Worksheets("DAI EMP DATA-06-19-06").Range(Worksheets("DAI EMP DATA-06-19-06").Cells(i, 1), Worksheets("DAI EMP DATA-06-19-06").Cells(i, Worksheets("DAI EMP DATA-06-19-06").UsedRange.Columns.Count)).Find("")
       If Not rng Is Nothing Then
          Worksheets("DAI EMP DATA-06-19-06").Range(Worksheets("DAI EMP DATA-06-19-06").Cells(i, 1), Worksheets("DAI EMP DATA-06-19-06").Cells(i, Worksheets("DAI EMP DATA-06-19-06").UsedRange.Columns.Count)).Copy
          Worksheets("Employees With Blank Fields").Activate
          Worksheets("Employees With Blank Fields").Cells(Worksheets("Employees With Blank Fields").UsedRange.Rows.Count + 1, 1).Select
          Worksheets("Employees With Blank Fields").Paste
       End If
   Next i



End Sub