Hi,
i am learning vba and would like to copy paste colored cell to another cell, below code does what i want but it only paste the code in column N, ie. N1, how can i paste and change the code to another cell, eg. N10.
Thanks you so much.
Sub COLORCELLCOPY()
Dim LR As Long, i As Long, j As Long
Dim c As Range
j = 1
LR = Range("M" & Rows.Count).End(xlUp).Row
For Each c In Worksheets("REPORT").Range("O1:O100" & LR)
If c.Interior.ColorIndex = 4 Then
c.Copy Destination:=Worksheets("REPORT").Range("N" & j)
j = j + 1
End If
Next c
End Sub
Bookmarks