COPY/PASTE Issue!!!

Hi Folks I know this will be an easy one! im trying to copy a range A1:B(bottom of column) onto another work sheet from A9 down.

ive got this code

Worksheets("BCIS").Range("A1:B" & Range("B2").End(xlDown).Row).Copy
            Worksheets(3).Range("A9:B" & Range("B2").End(xlDown).Row).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

But it keeps saying that im not copying into the same size range and it wont work.

Please help

Thanks

You can't copy A1:B(bottom of column) to a cell that isn't in row 1. Try using:

Worksheets("BCIS").Range("A1:B" & Range("B" & rows.count).End(xlup).Row).Copy
            Worksheets(3).Range("A9").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

to copy only the used range

perhaps something like this

Worksheets("Sheet1").Range("A1:B" & Range("B2").End(xlDown).Row).Copy
            Worksheets(3).Range("A9").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

blue

Thanks for the posts,

Yudlugur - your code seems to only copy a few items rather than the whole range.

Blue.chio - yours still produces the same error message

error.jpg


If it helps the whole range is A1:B170 but that range could alter which is why I wanted to use the xldown function (which I assume is the function that goes to the bottom row?)

any other ideas


Thanks

JosephP - Nailed it cheers mate

How do I mark a post as solved???