Hi Biff,

As per my followup post,

srcRng.Copy Destination:=destRng

Should be:

srcRng.EntireRow.Copy Destination:=destRng

---
Regards,
Norman



"Biff" wrote in message
...
Hi Norman!

That only copies the numeric values from column AE. I need the ENTIRE ROW
copied.

Well, not the ENTIRE row but the range An:AAn.

Thanks!

Biff

"Norman Jones" wrote in message
...
Hi Biff,

Try:
'==========
Public Sub TestIt()
Dim srcRng As Range
Dim destRng As Range

Set destRng = Sheets("Sheet3").Range("A2")

On Error Resume Next
Set srcRng = Sheets("Sheet2").Columns("AE"). _
SpecialCells(xlCellTypeFormulas, xlNumbers)
On Error GoTo 0

If Not srcRng Is Nothing Then
srcRng.Copy Destination:=destRng
End If

End Sub
'<<==========

---
Regards,
Norman



"Biff" wrote in message
...
Hi Folks!

I've searched the archives and have found a million similar posts but I
don't know enough VBA to adapt what I found to meet my needs.

Comparing uneven ranges on 2 different sheets (Sheet1, Sheet2) looking
for uniques. I'm using a helper column (AE) in Sheet2 that identifies
the uniques by returning the row number if it's a unique or a formula
blank ("") if it's a dupe.

All rows that are identified as unique on sheet2 I would like to have
that ENTIRE ROW copied to another sheet starting in A2. Row 1 in the new
sheet are the headers.

I can do this easily with formulas but this would require way too many.

So, the basic logic is:

If any cells in column AE on Sheet2 contain a numeric value then copy
that ENTIRE ROW to Sheet3 starting in cell A2 on down.

Thanks!

Biff