Hi guys,
Can anyone say why this quick Copy and paste only pastes one worksheet into the new one, not both.
Notice I'm trying to Copy the cell contents of two works sheets and am trying to combine them both to the end of another worksheet. Altough the columns are the same, I cheated because I actually don't know the code to highlight only the full rows, so I hedged it knowing there'll never be more than 4000 rows.
When I "comment out" one, it'll copy the other. But not both. Otherwise it erases the one and pastes theother. That am I missing.
[vba]Sub CutPaste()
' COPY AND PASTE DATA
Sheets("FB").Range("A2:Q4000").Copy Destination:=Sheets("Leads").Range("A1").End(xlUp).Offset(1, 0)
Sheets("Harris").Range("A2:Q4000").Copy Destination:=Sheets("Leads").Range("A1").End(xlUp).Offset(1, 0)
End Sub[/vba]