Macro function to copy data set to next available column

[seankwest]

Hello,

I am looking for a macro that will copy values only of cells D1:E90 and paste them into the next available column in the column range X-IV on the same sheet of the workbook. Any ideas are greatly appreciated!

Sean

 

[mikerickson]

Range("IV1").End(xlToLeft).Offset(0,1).Resize(20, 2).Value = Range("D1:E19)").Value

 

[seankwest]

I am receiving the Error:

Run-time error '1004':
Method 'Range' of object'_Global'failed

Any ideas? Thank you!

 

[seankwest]

How do I get the macro below to copy values only? It is currently copying the formulas as well. Thanks again!


Sub CopyToNextEmptyColumn()
Dim rngSource As Range
Dim rngDestination As Range

Set rngSource = Range("D1:D90")
Set rngDestination = Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1)

rngSource.Copy Destination:=rngDestination

End Sub

 

[mikerickson]

Oops,

Range("IV1").End(xlToLeft).Offset(0,1).Resize(90, 2).Value = Range("D1:E90").Value