I want to copy rows from sheet "TrackA" to sheet "RegionQualifiers" based on certain criteria. The rows should be copied below each other on the next empty line. I have written the following code and it works fine. It copies the rows only if the value in Column C = 1, 2 or 3 which is what I want. However, at the same time, I want to exclude the rows where Column A contains the strings "800M" or "1500M" or "RELAY". I have tried different things but I can't get it to work properly. I have attached a sample file. Any help would be greatly appreciated.
Dim bottomC As Long
bottomC = Range("c" & Rows.count).End(xlUp).Row
Dim cell As Range
For Each cell In Range("C2:C" & bottomC)
If cell.Value = 1 Or cell.Value = 2 Or cell.Value = 3 Then
cell.EntireRow.Copy Sheets("RegionQualifiers").Cells(r, 1)
r = r + 1