Curt,
Try this,
for iCount = 1 to wksSheetA.usedrange.rows.count
if wksSheetA.cells(icount, 1).value = 1 then
wksSheetA.cells(icount, 1).entirerow.copy
wksSheetA.paste wksSheetB.cells(icount, 1)
end if
next iCount
It might need tweeking, but it's generally correct,,,
Dan.