【エクセルVBA】文字列を条件に沿って読み取ってペーストしたい

以下のコードを標準モジュールに貼り付けて、copy_item_data サブルーチンを実行してください。
アクティブなシートを対象にして、該当するデータを "場所" シートに複写します。

Const MAX_ROW = 10000
Const BASE_ITEM_NUMBER = 160108000

Function is_blank_cell(c)
    is_blank_cell = IsEmpty(c) Or c.Value = ""
End Function

Sub copy_xxx_data()
    Set dest_sheet = Sheets("場所")
    dest_r = 200
    r = 2
    blank_count = 0
    Do Until blank_count = 20   ' 空白行が20行続いたら打ち切り
        Set c = Cells(r, 11)        ' K 列
        If is_blank_cell(c) Then
            blank_count = blank_count + 1
        Else
            blank_count = 0
            item_number = Val(Left(c.Value, 9))
        Debug.Print Len(c.Value) & " " & item_number
            If item_number >= BASE_ITEM_NUMBER Then
                c.Copy dest_sheet.Cells(dest_r, 4)                  ' 商品番号
                Cells(r, 1).Copy dest_sheet.Cells(dest_r, 2)        ' 商品名
                dest_r = dest_r + 1
            End If
        End If
        DoEvents
        r = r + 1
        If r > MAX_ROW Then     ' 念のため
            Exit Do
        End If
    Loop

    ' 商品番号の降順で並べ替え
    dest_sheet.Range(dest_sheet.Cells(200, 1), dest_sheet.Cells(dest_r, 4)).Sort Key1:=dest_sheet.Range("d200"), Order1:=xlDescending

End Sub

例によって、ビビッて最大処理行数を MAX_ROW で指定しています。
適宜、増やしてください。

「160108000以降」は、160108000 と等しいものも複写対象にしています。

商品番号の桁数のチェックはしてません。
もし、桁数として足りていないとか、先頭から9桁以内に数値以外の文字があった場合には、そこまでを対象にして数値として扱います。
なので、そのようなデータがあった場合には、複写の対象外となります。

「その数字部分を降順にします。」

とさせていただいておりまして、意味が伝わらなかったかもしれません。

完全に見落としてました　m(_ _)m
先の回答のコードを修正しました。
サブルーチンの最後に、並べ替えのコードを追加しています。