Copy/Paste problem

[Dan R.]

I know this is simple, but how do I shift the paste of dRange down 1
row? I'm pretty sure I need to use offset somewhere but I can't figure
out where.

LC = Lastcol(WB2.Sheets(2)) + 1

Set sRange = WB1.Columns("A:M")
Set dRange = WB2.Sheets(2).Columns(LC)

sRange.Copy dRange


Thanks,
-- Dan

 

[Otto Moehrbach]

dRange.Offset(1)
HTH Otto

 

[merjet]

You can copy 'Columns to Columns' or 'Range to Range', but not
'Columns to a Range'.
Try something like this:

Set sRange = WB1.Range("A1:M10")
Set dRange = WB2.Sheets(2).Cells(2, LC)
sRange.Copy dRange

Hth,
Merjet

 

[Dan R.]

That's right, thanks merjet.

-- Dan