Copy Entire row if value in column D begins with "21"

Thanks in advance for any assistance you may be able to provide, below is the problem statement:

Copy Entire row if value in column D begins with "21"

1) Copy from a tab titled "BOC"
2)Copy to a tab titled "BOC 21"

Also if possible: If the value in column D begins with "22", "23", or "24" copy the row into a tab labeled "BOCs 22, 23, 24

If the value in column D begins wih "26" copy the entire row in a tab titled "BOC 26"

Again the source of the data is in tab titled "BOC", once the data has beeen copied from BOC is it possible to have the macro delete the row?

Please keep in mind that the tabs already contain static data I would like the copied rows to be appended after the last row of static data in each tab. See attached sample data for example. Thanks Again!

Sub macro_1()
Dim count
count = 2
Do Until Sheets("BOC").Range("A" & count) = ""
    If Strings.Left(Sheets("BOC").Range("D" & count), 2) = "21" Then
        Sheets("BOC").Rows(count).Copy Sheets("BOC 21").Rows(Sheets("BOC 21").Range("A" & Rows.count).End(xlUp).Row + 1)
        Rows(count).Delete
    ElseIf Strings.Left(Sheets("BOC").Range("D" & count), 2) = "22" Or _
     Strings.Left(Sheets("BOC").Range("D" & count), 2) = "23" Or _
     Strings.Left(Sheets("BOC").Range("D" & count), 2) = "24" Then
        Sheets("BOC").Rows(count).Copy Sheets("BOC 22, 23, 24").Rows(Sheets("BBOC 22, 23, 24").Range("A" & Rows.count).End(xlUp).Row + 1)
        Rows(count).Delete
    ElseIf Strings.Left(Sheets("BOC").Range("D" & count), 2) = "25" Then
        Sheets("BOC").Rows(count).Copy Sheets("BOC 25").Rows(Sheets("BOC 25").Range("A" & Rows.count).End(xlUp).Row + 1)
        Rows(count).Delete
    ElseIf Strings.Left(Sheets("BOC").Range("D" & count), 2) = "26" Then
        Sheets("BOC").Rows(count).Copy Sheets("BOC 26").Rows(Sheets("BOC 26").Range("A" & Rows.count).End(xlUp).Row + 1)
        Rows(count).Delete
    Else
        count = count + 1
    End If
Loop
End Sub

Thanks yudlugar! Works like a charm, Thank you! The only change I made was retitling "BBOC 22, 23, 24" to "BOCs 22, 23, 24" everything else was perfect!