Copy Paste help VBA if Cells are yellow paste to another sheet

[zone709]

Hi I am trying to copy any cells that are in yellow in Column B From Activesheet and paste it to another Workbook called "Mapping Table" to Lastrow.cells in column A. As I have a list of names on the Mapping Table workbook and need to add it in Column A to last entry.

Came across this and need a little help getting it to work thanks.

Sub Yellow()
Dim LR As Long, i As Long,LastRow
LR = Range("B" & Rows.Count).End(xlUp).Row
For i = 1 To LR
    With Range("B" & i)
        If .Interior.ColorIndex = 6 Then
            .Copy Destination:= '<--- Need this to paste to workbook called "Mapping Table"  which there is only one tab sheets(1)

.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        End If
    End With
Next i
End Sub

 

[JLGWhiz]

Assuming "Mapping Table" is open.

Copy Destination:=Workbooks("Mapping Table.xlsx").Sheets(1).Cells(Rows.Count, 1).End(xlup)(2)

 

[zone709]

ok got it works great thanks. Yes that workbook is opened.

what it looks like now

Sub Yellow()
Dim LR As Long, i As Long
LR = Range("B" & Rows.count).End(xlUp).Row
For i = 1 To LR
    With Range("B" & i)
        If .Interior.ColorIndex = 6 Then
            .Copy Destination:=Workbooks("Mapping Table.xlsx").Sheets(1).Cells(Rows.count, 1).End(xlUp)(2)
        End If
    End With
Next i
End Sub

 

[JLGWhiz]

You're welcome and thanks for the feedback.
regards, JLG