If
Sheets(
"FCLM_Data"
).Cells(z1, 13) =
"y"
and y <= 6
Then
Sheets(
"oard"
).Cells(z3, s3) = Sheets(
"FCLM_Data"
).Cells(z1, 1)
s3 = s3 + 1
y = y + 1
ElseIf
Sheets(
"FCLM_Data"
).Cells(z1, 13) =
"p"
and p <= 2
Then
Sheets(
"Board"
).Cells(z4, s4) = Sheets(
"FCLM_Data"
).Cells(z1, 1)
s4 = s4 + 1
p = p + 1