Hi guys.
I would like to move the ranges that are highlighted in yellow to the second sheet. NB! The coloring is only there to help you see what part I want to move. I don't want a search for yellow cells.
I also want the ranges to be transposed and form one continuous range.
Here is the code I have written. It works fine, but it's incredibly slow.
Sub CopyMove1()
Dim i As Long
For i = 5 To 719 Step 14
Worksheets(1).Activate
Range(Cells(i, 2), Cells(i + 7, 8)).Select
Selection.Copy
Worksheets(2).Range("B" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Transpose:=True
Next i
End Sub
I was wondering what you guys think is the "best" or most efficient way to perform the task at hand?
Also, if you have any tips or suggestions related to copying and pasting I would love to hear it. Don't be shy!
If my explanation wasn't clear enough (probably wasn't) then just run the macro and you will see what I mean.
Thanks a bunch!
Bookmarks