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
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