I need to move data from main worksheet into multiple worksheets based on a criteria

I really need help. I have a file that combines data (multiple rows and columns) for several regions. I need to be able to copy data for each region and copy it into the new sheet for that region.
Any help is greatly appreciated .
Thank you,

K

Something like this would work, im sure someone will be able to give you a better code but this would work.

Sub test()

Dim DataLR As Long
Dim Region As String
Dim Counter As Long
Dim RegionLR As Long


With ActiveSheet

        DataLR = Range("A" & Rows.Count).End(xlUp).Row


    For Counter = DataLR To 2 Step -1
        With Cells(Counter, "A")
            Region = Cells(Counter, "A").Value
                Range("A" & Counter & ":F" & Counter).Select
                Selection.Cut
                Sheets(Region).Select
        End With
    
    With ActiveSheet
        RegionLR = Range("A" & Rows.Count).End(xlUp).Row
        RegionLR = RegionLR + 1

            ActiveSheet.Range("A" & RegionLR).Select
                ActiveSheet.Paste
                Selection.Copy
                Selection.PasteSpecial Paste:=xlPasteAll
                Application.CutCopyMode = False
                Sheets("Data").Select
        End With

    Next Counter
       End With
End Sub