уменьшение длины кода

[Magnetic Air]

Дело в том, что этот кусок кода:

...
Str = ActiveCell.Row
Stol = ActiveCell.Column
If Cells(Str, Stol).Value <> 0 Then
Cells(Str + 1, Stol).Range("a1").Select
Else
Range(Cells(Str, Stol), Cells(Str, Stol + 4)).Delete Shift:=xlUp
End If
...

повторяется 13 раз, может как-то можно загнать его в цикл, тем самым уменьшив его длину, а то код растягивается на "метры"

[AKSENOV048]

может так
можно один раз написать
sub io()
Str = ActiveCell.Row
Stol = ActiveCell.Column
If Cells(Str, Stol).Value <> 0 Then
Cells(Str + 1, Stol).Range("a1").Select
Else
Range(Cells(Str, Stol), Cells(Str, Stol + 4)).Delete Shift:=xlUp
End If
end sub

и дальше
......
call io
......

получиться короче.

[Magnetic Air]

тоже вариант, но sub'оф сильно много тоже не хочется

[EducatedFool]

Всё это можно попробовать сделать без циклов, одной строкой кода.
А если одной строкой не получится - то 4-5 строк хватит.

Но, без примера файла, сложно понять, как оптимизировать код.
Прикрепите файл - поможем с кодом.

[Казанский]

If ActiveCell <> 0 Then ActiveCell(2).Select Else ActiveCell.Resize(,4).Delete Shift:=xlUp

[slan]

полностью согласен с пред оратором..

можно только чуть ускорить и чуть подправить(по количеству столбцов для удаления):

with activecell
If .value <> 0 Then offset(1).Select Else .Resize(,5).Delete Shift:=xlUp
end with

[IgorGO]

а как же 13 раз подряд? и если уже ускорять (а это крайне важно на 13-разовом цикле), то надо уйти от Select

r = activecell.row: c = activecell.column
for i = 1 to 13
  If cells(r,c) <> 0 Then r = r+1 Else cells(r,1).Resize(,5).Delete Shift:=xlUp
next

[slan]

так селект на выходе - значит это кому-то надо. я б не стал так радикально

[IgorGO]

согласен)))
ну, для многих не секркет, что Selrct'ы нужны тем, кто аккуратно переписывает код, полученный с макрорекордера (как это часто делаю я).
после next можно добавить строку cells(r,c).select