Sub RRC()


    Dim A As Variant
    Dim x As Long, y As Long, z As Long
    Count = 1


    For y = 1 To 18

        For x = 1 To 2

            Select Case x

            Case Is = 1
            Sheet1.Cells(Count, 4).Value = Sheet1.Cells(y, x).Value
            A = Sheet1.Cells(y, 2).Value
            Count = Count + 1
            Case Is = 2
                Select Case A
                Case Is = 16
                Case Is = 32
                Count = Count + 1
                Sheet1.Cells(Count, 4).Value = " "
                Case Is = 64
                Count = Count + 1
                Sheet1.Cells(Count, 4).Value = " "
                Count = Count + 1
                Sheet1.Cells(Count, 4).Value = " "
                End Select

             End Select


        Next x
    Next y
End Sub