VBA for Multiple Criteria Help

[DarrenF]

I have the below VBA for 1 Criteria (bolded below), if I would like to add a second criteria in Column M for "Slow Data", how would I write a second criteria?

Private Sub Update_Data()

lastRow = Worksheets("data").Range("A" & Rows.Count).End(xlUp).Row

For r = 2 To lastRow
If Worksheets("data").Range("AH" & r).Value = "Nokia" Then

'Worsheets("data").Rows(r).Copy
Worksheets("data").Range("AS" & r & ":AT" & r & ":AU" & r & ":AV" & r).Copy

Worksheets("Report").Activate
lastRowRpt = Worksheets("Report").Range("A" & Rows.Count).End(xlUp).Row
Worksheets("Report").Range("A" & lastRowRpt + 1).Select

ActiveSheet.Paste

End If

Next r

End Sub

 

[Joe4]

Like this:

If (Worksheets("data").Range("AH" & r).Value = "Nokia") And (Worksheets("data").Range("M" & r).Value = "Slow Data") Then

 

[DarrenF]

That worked! Thanks for the quick help.

 

[Joe4]

You are welcome.
Glad I was able to help.