MACRO : to identify a cell value, if text, scroll down, if empty, move to next column

[JackMiracle]

Hi,

I'm lost on how to approach this problem.

1) Identify if there is an R or a Shift time (if R move on to next day), else
2) if Shift Time is identified (19-07, 11-23, 07-19) look in current column
to see if there are any values
3) store any column values in a variable (array?)
4) after the 6 rows, move on to the next column (day), until end of month

(I couldn't install the code-maker at work, so that's why i posted an image)

dim a, x, y as Long
x = 3
y = 5

For a = 1 To lastRow
If Cells(x, y).Value = "19-07" Or Cells(x, y).Value = "07-19" Or Cells(x, y).Value = "11-23" Then
       'move down the colum to check
       'check if next cell is blank
        Cells(x, y + 1).Value = nextValue
        if nextValue = isText(x,y+1) (ehh i know this line is wrong)
       Else
        y = y + 3
        
    End If
    Next a