Dim rng as Range, rng1 as Range
set rng = Range(Cells(1,1),Cells(1,1).End(xldown))
On error resume Next
set rng1 = rng.offset(0,1).Resize(,2).SpecialCells(xlBlanks)
On Error goto 0
if not rng1 is nothing then
rng1.EntireRow.copy Destination:=Worksheets(2).Range("A1")
End if

--
Regards,
Tom Ogilvy


"Jahsonn" wrote in message
...
I have a list of data as such.

112526 name
254412 name
125421 name
254412 name
254412

The first column will always have a value in it but the
second and third columns may not have values in them. Is
it possible to have a macro run down the list and any
items which it doesnt have values in columns b and c to
copy to another sheet?