Sub macr1()
  Application.ScreenUpdating = 0' не обновлять экран
  sn_ = ActiveSheet.Name 'sn_ - это номер тек. листа
  Sheets.Add 'вставить новый лист
With Sheets(sn_) 'работаем в листе sn_
      .Cells.UnMerge 'разъединить все ячейки
      .Columns("J:K").Replace What:=" ", Replacement:="", LookAt:=xlWhole 'в столбцах jk заменить все ячейки с пробелами на пустые ячейки
      .Columns("J:K").Copy' скопировать столбцы jk
      .Columns("C:D").PasteSpecial Paste:=xlPasteAll, SkipBlanks:=True 'вставить в столбцы cd спецвставкой с галкой "пропускать пустые ячейки"
      .Columns("A:G").AutoFilter Field:=1, Criteria1:=">0", Operator:=xlAnd 'поставить автофильтр и поставить фильтр по столбцу а все больше нуля  
      .Columns("A:G").SpecialCells(xlCellTypeVisible).Copy ActiveSheet.Range("A1") 'скопировать видимые ячейкии вставить в новый лист (который вставили раньше)
End With 'конец работы в листе sn_
      Range("A1").EntireRow.Delete 'на новом листе грохнуть первую строку
      Range("A1").EntireColumn.Delete 'грохнуть первый столбец
      Columns("A:F").EntireColumn.AutoFit' поставить автоширину на оставшиеся столбцы
  Application.ScreenUpdating = 1 'обновлять экран как обычно
End Sub

Private Sub CommandButton1_Click()
'основная замена и удаление лишних строк

Application.ScreenUpdating = 0
sn_ = ActiveSheet.Name
Sheets.Add
With Sheets(sn_)
       .Cells.UnMerge
       .Columns("J:K").Replace What:=" ", Replacement:="", LookAt:=xlWhole
       .Columns("J:K").Copy
       .Columns("C:D").PasteSpecial Paste:=xlPasteAll, SkipBlanks:=True
       .Columns("A:G").AutoFilter Field:=1, Criteria1:=">0", Operator:=xlAnd
       .Columns("A:G").SpecialCells(xlCellTypeVisible).Copy ActiveSheet.Range("A1")
End With
       Range("A1").EntireRow.Delete
       Range("A1").EntireColumn.Delete
       Columns("A:F").EntireColumn.AutoFit
Application.ScreenUpdating = 1

'замена названий

Cells.Replace What:="Расходная Накладная", Replacement:="Приход товара", _
           LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
           False, ReplaceFormat:=False
       ActiveWindow.ScrollColumn = 4
       ActiveWindow.ScrollColumn = 3
       ActiveWindow.ScrollColumn = 2
       ActiveWindow.ScrollColumn = 1
       Cells.Replace What:="РасходнаяНакладная", Replacement:="Приход товара", _
           LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
           False, ReplaceFormat:=False
       Cells.Replace What:="ВозвратнаяНакладная", Replacement:="Возврат товара", _
           LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
           False, ReplaceFormat:=False
       Cells.Replace What:="ПополнениеЛичногоСчета", Replacement:="Оплата безнал" _
           , LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat _
           :=False, ReplaceFormat:=False
              
           'сортировка по возрастанию и удаление столбца
          Columns("A:A").Select
       Range("A1:F30000").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:= _
           xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
           DataOption1:=xlSortNormal
       Columns("F:F").Select
       Selection.Delete Shift:=xlToLeft
       Range("M7").Select
End Sub

Range("A:F").Sort