Function blah(myRng)
Dim zz()
yy = myRng.Value
ReDim zz(1 To UBound(yy, 2) + 1)
idx = 1
For c = LBound(yy, 2) To UBound(yy, 2)
  Select Case c
    Case 1
      If yy(2, c) <> 0 Then
        zz(idx) = yy(1, c)
        idx = idx + 1
        If yy(2, c + 1) = 0 Then
          zz(idx) = yy(1, c)
          idx = idx + 1
        End If
      End If
    Case UBound(yy, 2)
      If yy(2, c) <> 0 And yy(2, c - 1) = 0 Then
        zz(idx) = yy(1, c)
        idx = idx + 1
      End If
      If yy(2, c) <> 0 Then
        zz(idx) = yy(1, c)
        idx = idx + 1
      End If
    Case Else
      If yy(2, c) <> 0 Then
        If yy(2, c - 1) = 0 Then
          zz(idx) = yy(1, c)
          idx = idx + 1
        End If
        If yy(2, c + 1) = 0 Then
          zz(idx) = yy(1, c)
          idx = idx + 1
        End If
      End If
  End Select
Next c
For i = idx To UBound(zz)
  zz(i) = "-"
Next i
blah = zz
End Function