'    Cells(rw, "A").CurrentRegion.Clear
    If Not IsEmpty(Cells(rw, "A")) Then rw = Cells(Rows.Count, "A").End(xlUp).Row + 1

Sub Test3()
    Dim r As Range, i1&, i2&, rw&, cl&: rw = 20: cl = 1
    Dim cell As Range
    Set cell = Cells.Find("*", , , , xlByRows, xlPrevious)
    If cell.Row > rw Then
        If cell.Column >= 8 Then
            rw = cell.Row + 1
            cl = 1
        Else
            rw = cell.Row - 3
            cl = cell.Column + 1
        End If
    End If
    Set r = Range("E1").CurrentRegion
    Application.ScreenUpdating = False
    '    Cells(rw, "A").CurrentRegion.Clear
    For i1 = 2 To r.Rows.Count
        Range("C4") = r(i1, 1)
        For i2 = 1 To r(i1, 2)
            Range("B2:C5").Copy Cells(rw, cl)
            If cl = 7 Then
                cl = 1: rw = rw + 4
            Else: cl = cl + 2: End If
        Next
    Next
    Application.ScreenUpdating = True
End Sub