Hello Gentlemen

I am trying to copy Specific cells when criteria is met.

Criteria is when row Q has value ="COMPLTE"
then copy CELL in that row for each column = G,I,J,L,Z,AG,AC

I am getting error : Run-Time error "438" Object doesn't support property or method.


can someone please help me ? thank you in advance !

Sub DataExtraction()

lastRow = Worksheets("Raw Data").Range("q" & Rows.Count).End(xlUp).Row

For r = 1 To lastRow

If Worksheets("Raw Data").Range("Q" & r).Value = "COMPTE" Then


Worksheets("Raw Data").Range ("G" & r & ",I" & r & ",J" & r & ",L" & r & ",Z" & r & ",AG" & r & ",AC" & r)
Worksheets("Compiler").Activate
lastRowRpt = Worksheets("Compiler").Range("a" & Rows.Count).End(xlUp).Row
Worksheets("compiler").Range("a" & lastRowRpt + 1).Select

ActiveSheet.Paste


End If



Next r



End Sub