try this on the file you attached: 
Sub blah()
OfsetAddr = "A4,A7,A10,A13,A16,A19"
With Sheets("Sheet1")
  For Each cll In .Range("B2", .Range("B2").End(xlToRight)).Cells    'headers
    Set rng = cll.Range(OfsetAddr)
    'rng.Select
    cll.Offset(1).Resize(18).Interior.Color = xlNone    'clears fill from column
    lowest = 1E+99    'a big number
    'loop 1 to find lowest with conditions:
    For Each celle In rng.Cells
      'celle.Select
      If Not (celle.Value = 0 Or Len(celle.Value) = 0) Then lowest = Application.Min(celle.Value, lowest)
    Next celle
    'loop 2 to highlight lowest:
    For Each celle In rng.Cells
      If celle.Value = lowest Then celle.Offset(-2).Resize(3).Interior.Color = rgbYellow    'highlights cell and the 2 cells above.
    Next celle
  Next cll
End With
End Sub