Copy/Paste part of a variable Range

[KB_Miner]

I'm trying to set a range to a variable, then copy and paste the first three columns of that range to the right by one column. Thinking my syntax on the copy/paste is off slightly as the code errors out during the set statement of the CopyFrom variable. The WRange variable will be set by a select case based on a drop down list from a user form, but the copy/paste action should be consistent no matter which range is set to the WRange variable as it will always be a range 4 columns wide by 3 rows tall.

Here's my current code:

Dim WRange As Range
Dim CopyFrom As Range, CopyTo As Range

Set WRange = Range("B15:E17")
Set CopyFrom = WRange(.Cells(1, 1), .Cells(3, 3))
Set CopyTo = WRange(.Cells(1, 2), .Cells(3, 4))
CopyFrom.Copy CopyTo

 

[Cubist]

Try

Dim WRange As Range
Dim CopyFrom As Range, CopyTo As Range

Set WRange = ThisWorkbook.ActiveSheet.Range("B15:E17")

Set CopyFrom = WRange.Range(WRange.Cells(1, 1), WRange.Cells(3, 3))
Set CopyTo = WRange.Range(WRange.Cells(1, 2), WRange.Cells(3, 4))

CopyFrom.Copy CopyTo

 

[KB_Miner]

@Cubist That worked. Knew my syntax for the CopyFrom/To lines was off, just couldn't seem to find a good answer from browsing the forums. Thanks for the help!

 

[KB_Miner]

@Cubist While your code got rid of my errors, it didn't actually work for copying and pasting my data. After some trial and error, I figured this out and it's working great.

Set CopyFrom = WRange.Cells(1, 1).Resize(3, 3)
Set CopyTo = WRange.Cells(1, 2)
CopyFrom.Copy CopyTo