Copy Rows to Existing Worksheet Based upon a Cell Value

I have 3 worksheets with information for all offices for each Month Dec, Jan, Feb. I need to copy rows from each one of those worksheets and paste it to a worksheet titled PROC. Rows should be copied based upon the Processor they are assigned to in cell D.

Can you give a description or attach an example of what the Proc sheet should like? If you're wanting the entire rows copied, then Proc would just end up being a combination of all rows in Dec, Jan, and Feb, so I don't know what you mean by "copied based upon the Processor they are assigned to".

I want to take all rows from Dec, Jan, Feb worksheets A1 to Bf1(could be more if I add more rows)and copy those to PRC worksheet and sort by column D (Processor. Then I need to insert a row to separate (Fill Black) so that I can paste rows A1 to Bf1 if they have "Setup, Needs, Conditions, Submitted, Resubmitted" in column BC sorting again by column D Processor and column BC. Example of what I want it to look like on example worksheetAttachment 285163

This should get you a start. Be sure you have headings on PROC before running it.

Option Explicit
Dim ws As Worksheet, rw As Long, prw As Long

Sub MoveData()
    Application.ScreenUpdating = False
    Sheets("PROC").Select
    prw = Cells(Rows.Count, 4).End(xlUp).Row

    ' Clear previous values
    If prw > 1 Then
        Rows("2:" & prw).Delete
    End If
    prw = 2

     ' Process sheets with 3-character names
    For Each ws In ActiveWorkbook.Worksheets
        With ws
            If Len(.Name) = 3 Then
                rw = .Cells(.Rows.Count, 4).End(xlUp).Row
                .Rows("2:" & rw).Copy Destination:=Cells(prw, 1)
                prw = prw + rw - 1
            End If
        End With
    Next

    ' Sort by Processor
    prw = Cells(Rows.Count, 4).End(xlUp).Row
    With ActiveSheet.Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("D2"), Order:=xlAscending
        .SetRange Range("A2:AB" & prw)
        .Header = xlNo
        .Orientation = xlTopToBottom
        .Apply
    End With

    ' Delete blank rows, if any
    rw = Cells(Rows.Count, 4).End(xlUp).Row + 1
    If prw > rw Then
        Rows(rw & ":" & prw).Delete
    End If

    ' Add blank rows
    prw = 3
    Do Until Cells(prw, 4).Value = ""
        If Cells(prw, 4).Value <> Cells(prw - 1, 4).Value Then
            Rows(prw).Insert
            Rows(prw).Interior.Color = 1
            prw = prw + 1
        End If
        prw = prw + 1
    Loop
End Sub

I created a command active x button and pasted the code, I receive a compile error

It worked when I ran it on your sample workbook, so you'll need to provide more info. What line did it break on, and what was the problem?

Can you send me the sample workbook back so I can see it?

Thanks for the private message... I sent u a couple After I downloaded the example I was unable to see the button you added?

Oh, I didn't add a button. I was just running the code. You can add one and assign it to to the subroutine.