Error check and if the cell is not numeric or empty loop to the next item

my bad-had the resize method wrong

If Application.WorksheetFunction.Count(cell_Check.Offset(, -1).Resize(, 4)) = 4 And Application.WorksheetFunction.CountIf(cell_Check.Offset(, -1).Resize(, 4), ">0") = 4 Then