Simple Copy and Paste Mystery

[Bob Phillips]

Looks like your are overwriting it

[vba]
Sub CutPaste()
' COPY AND PASTE DATA
Sheets("FB").Range("A2:Q4000").Copy Destination:=Sheets("Leads").Range("A1").End(xlDown).Offset(1, 0)
Sheets("Harris").Range("A2:Q4000").Copy Destination:=Sheets("Leads").Range("A1").End(xlDown).Offset(1, 0)
End Sub
[/vba]