F
FIRSTROUNDKO via OfficeKB.com
I can "Set Range" then "Copy" then "select" then paste as below
If Cells(CCC - 1, 1).Value = Cells(CCC, 1).Value Then
Set MyRange = Cells(CCC, 100).End(xlToLeft).Offset(0, 1)
Range(Cells(CCC - 1, 11), Cells(CCC - 1, 14)).Copy
MyRange.Select
ActiveSheet.Paste
For speed I do not want donot want to select but the following code errors
out
Range(Cells(CCC - 1, 11), Cells(CCC - 1, 14)).Copy Range(Myrange)
If Cells(CCC - 1, 1).Value = Cells(CCC, 1).Value Then
Set MyRange = Cells(CCC, 100).End(xlToLeft).Offset(0, 1)
Range(Cells(CCC - 1, 11), Cells(CCC - 1, 14)).Copy
MyRange.Select
ActiveSheet.Paste
For speed I do not want donot want to select but the following code errors
out
Range(Cells(CCC - 1, 11), Cells(CCC - 1, 14)).Copy Range(Myrange)