Sub RunMe() Sheets("Sheet1").Select For Each cell In Range("A2:A12948") If cell.Value <> vbNullString And _ cell.Offset(0, 1).Value = vbNullString And _ cell.Offset(0, 2).Value = vbNullString And _ cell.Offset(0, 3).Value <> vbNullString Then _ cell.EntireRow.Copy _ Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0) Next cell End Sub
DON'T MISS