Sub macro()
For Each c In Range(Range("F1"), Range("F" & Rows.Count).End(xlUp))
If c Like "*Mandatory*" Or c Like "*Voluntary*" Then
c.EntireRow.Copy Sheets("Sheet2").Range("A" & WorksheetFunction.Max(10, Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row + 1))
End If
Next
End Sub