Copy a range based on a cell value

I have a spreadsheet that I am trying to copy a range within a row to another sheet based on its value

I dump data into the spreadsheet from A to L. I assign the values below based on a lookup table in M.
Values
A+, A, B+, B, C, D, F, U

Now I want to copy the range A2:L2 to a different sheet based on its grade, i.e A+ goes to the A+ sheet, A goes to the A sheet and so on. There are approxamatley 4000+ rows in this sheet.

I have attached a small portion of the records.

Any help would be appreaciated, thanks in advance

Hello tuke016,

Welcome to the Forum!

The following macro has been added to the attached workbook. There is button on "Sheet1" to run the macro. This will copy each row to worksheet "A+", "A", "B+", etc. depending on the value in column "M" of "Sheet1".

Sub CopyToSheetsByGrade()

    Dim DstWks As Worksheet
    Dim N As Long
    Dim R As Long
    Dim Rng As Range
    Dim Wks As Worksheet
    
        Set Rng = ActiveSheet.Range("A1").CurrentRegion
        
        For R = 1 To Rng.Rows.Count
        
            Set DstWks = Worksheets(Rng.Cells(R, "M").Text)
            N = DstWks.Cells(Rows.Count, "A").End(xlUp).Row
            
            If N = 1 Then
               If WorksheetFunction.CountA(DstWks.Range(Rng.Rows(1).Address)) > 0 Then N = N + 1
            Else
               N = N + 1
            End If
            
            DstWks.Rows(N).Resize(ColumnSize:=Rng.Columns.Count).Value = Rng.Rows(R).Value
            
        Next R
        
End Sub