Does this help?

Sub cmd105()
Dim rcell As Range
For Each rcell In Range("P2:V" & Range("V" & Rows.count).End(3)(1).Row)
    If rcell.Value = "CORRECT" Then
        Select Case rcell.Column
            Case Is = 15
                Range(Cells(rcell.Row, 1), Cells(rcell.Row, 21)).Copy Sheets("Sheet1").Range("A" & Rows.count).End(3)(2)
            Case Is = 16
                Range(Cells(rcell.Row, 1), Cells(rcell.Row, 21)).Copy Sheets("Sheet2").Range("A" & Rows.count).End(3)(2)
            Case Is = 17
                Range(Cells(rcell.Row, 1), Cells(rcell.Row, 21)).Copy Sheets("Sheet3").Range("A" & Rows.count).End(3)(2)
            Case Is = 18
                Range(Cells(rcell.Row, 1), Cells(rcell.Row, 21)).Copy Sheets("Sheet4").Range("A" & Rows.count).End(3)(2)
            Case Is = 19
                Range(Cells(rcell.Row, 1), Cells(rcell.Row, 21)).Copy Sheets("Sheet5").Range("A" & Rows.count).End(3)(2)
            Case Is = 20
                Range(Cells(rcell.Row, 1), Cells(rcell.Row, 21)).Copy Sheets("Sheet6").Range("A" & Rows.count).End(3)(2)
            Case Is = 21
                Range(Cells(rcell.Row, 1), Cells(rcell.Row, 21)).Copy Sheets("Sheet7").Range("A" & Rows.count).End(3)(2)
        End Select
    End If
Next rcell
            
End Sub