Separar información en 2 tablas de acuerdo a criterio

Tengo la siguiente macro que de acuerdo al valor que encuentra en las columnas U e Y genera una tabla con la información desde la columna A hata E y los pasa a la hoja PDF.

Lo que estaría necesitando es que separe ambas tablas. La primer tabla generada de acuerdo al criterio de la columna U y la otra tabla por debajo de acuerdo al crierio de la columna Y

Sub Ejecutar()
'Encuentra el valor 1 en la celda U y los pasa a hoja PDF
    Dim w As String
    Application.ScreenUpdating = 0
    With Sheets("PDF")
        .[E2,A4:V8000].ClearContents
        [A5:U5].AutoFilter 21, ">=1"
        Rows("5:5").EntireRow.Insert
        [a6].CurrentRegion.Copy
        .[a4].PasteSpecial xlValues
        [G1].Copy: .[E2].PasteSpecial xlValues
        w = .[E2].Value
        .[E2] = "FECHA:  " & w
        Rows("5:5").Delete xlUp
        Selection.AutoFilter
        '
'Encuentra el valor 1 en la celda Y y los pasa a hoja PDF
        [A5:Y5].AutoFilter 25, "=2"
        Rows("5:5").EntireRow.Insert
        [a6].CurrentRegion.Copy
        u = .Range("A" & Rows.Count).End(xlUp).Row + 1
        .Range("A" & u).PasteSpecial xlValues
        Rows("5:5").Delete xlUp
        Selection.AutoFilter
        '
        Application.CutCopyMode = False
        .[F:U].EntireColumn.Delete
        .[A1:E4].Font.Bold = True
    End With
    Sheets("PDF").Select
    Application.ScreenUpdating = 1
End Sub