Удаление ячеек со смещением вниз

[СтаСС]

Столкнулся с такой задачей - нужно найти ячейки (в примере имеющие значение 0 или 1) и удалить их, но при этом ячейки в этом столбце сверху должны сместится вниз.
Стандартным способом удаление ячеек со смещением вниз невозможно, но это как бы можно добиться удалением ненужной ячейки а после этого вставкой пустой ячейки в этом же
столбце сверху (2-я строка в примере пустая в нее и можна вставлять новые пустые ячейки вместо удаленных) в итоге получится то что и нужно.

Запись макроса стандартным способом здесь не поможет поэтому обращаюсь к знатокам - буду рад помощи.
P.S. в примере наглядно видно как есть и как должно получиться

[Казанский]

В первом приближении. Работает с выделением.

Sub Макрос1()
  Application.ScreenUpdating = False
  Selection.Columns(1).EntireColumn.Insert
  With Selection.Columns(1)
    .Formula = "=ROW()+9"
    .Value = .Value
  End With
  With Selection.Resize(, Selection.Columns.Count + 1)
    .Sort .Cells(1, 1), xlDescending, Header:=xlNo
    .Replace What:="1", Replacement:="", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    .Replace What:="0", Replacement:="", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    .SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
    .Sort .Cells(1, 1), xlAscending, Header:=xlNo
    .Columns(1).EntireColumn.Delete
  End With
  Application.ScreenUpdating = True
End Sub

[IgorGO]

Sub DelLessThen2()
  Dim ar, r&, c&, i&
  ar = Range(Cells(2, 20), Cells(Rows.Count, 1).End(xlUp)).Value
  For c = 1 To UBound(ar, 2)
    For r = 2 To UBound(ar)
      If ar(r, c) < 2 Then
        For i = r To 2 Step -1
          ar(i, c) = ar(i - 1, c)
        Next
      End If
    Next
  Next
  Cells(3 + UBound(ar), 21).Resize(UBound(ar), UBound(ar, 2)).Value = ar
End Sub

[СтаСС]

Сообщение от Казанский

Работает с выделением.

увы не совсем подходящий вариант т.к. очень много ячеек нужно удалять(сотни или даже тысячи) кроме того у меня он работает не коректно проверил на примере.. но все равно спасибо что откликнулись!

[СтаСС]

Сообщение от IgorGO

код

Вроде то что надо, а можна чтоб он исправлял имеющиеся данные "на месте" а не переносил их вправо и вниз и делал это на всем листе? И самое главное(может я не разобрался еще) он меняет только
значения меньше 2? а если нужно удалять например только ячейки с значениями 5 и 23?

[SAS888]

Во вложении пример, аналогичный варианту из #2, но с возможностью удалять любые (числовые, строковые) значения, указанные в массиве.
Также, макрос "не трогает" прорисованные границы.
Диапазон таблицы в макросе прописан явно. При необходимости, его можно определять по требуемым условиям.

[IgorGO]

конечно все перечисленное возможно.
как только задача описана ясно и четко в одном сообщении, в следующем уже может быть точный ответ на нее
а пока условия задачи "крутятся" только в голове у автора, такую задачу может решить только опытный экстрасенс (если он хоть что-то понимает в Excel)

[СтаСС]

Сообщение от SAS888

Во вложении пример,

Да, все отлично работает + разобрался где менять диапазон и нужные значения + уже проверил на нужном файле. Супер, большущее СПАСИБО!

[СтаСС]

Сообщение от IgorGO

конечно все перечисленное возможно.

Увы, должен в очередной раз согласиться - когда выкладывал вопрос казалось что яснее некуда но потом понял что есть )) Каюсь.. и главное это не первое ваше замечание такого рода... у меня уже вырабатывается стойкий комплекс неполноценности при формировании вопроса. Над очередным, а он вроде не за горами буду упорно стараться. Чеспионерское!

[IgorGO]

СтаСС, без обид - это хорошо и очень правильно!
тем более, я не ставлю целью обидеть кого-то, пользуясь служебным положением, я ставлю целью подтолкнуть людей к мысли -
когда описываете задачу, поймите, человек который прочитал Ваше описание, узнал о задаче ровно столько, сколько о ней написано, может еще догадаться о чем-то на основании своего жизненого опыта, ну а может и нет! может совершенно не догадываться о вещах, известных об этой задаче только Вам.

поэтому если надеетесь, что ВСЕ ОБО ВСЕМ догадаются - пишите как-нибудь, а если хотите получить точный ответ - отнеситесь вдумчиво и критично к собственным формулировкам, пробуйте абстрагироваться от всего что знаете о задаче прочитать свое сообщение и оценить насколько написанное Вами может быть понятно другим людям