Sub Fill_Blanks()
   For Each cell In Selection
       If IsEmpty(cell) Then cell.Value = cell.Offset(-1, 0).Value
   Next cell
End Sub

Sub Макрос2()
    Dim iText, iKey, iTemp, i&, flag As Boolean
    Dim myRng As Range, cl As Range, delRng As Range
    Dim dic As Object
    iText = Array("Анат*", "Уру*", "Инокен*") 'список слов на удаление
    Set dic = CreateObject("Scripting.Dictionary")
    For i = 0 To UBound(iText)
        iTemp = dic(iText(i))
    Next
    Set myRng = Intersect(Range("A:B"), ActiveSheet.UsedRange)
    flag = False
    For Each cl In myRng
        For Each iKey In dic.Keys
            If cl.Value Like "*" & iKey & "*" Then
                flag = True
                Exit For
            End If
            If flag Then Exit For
        Next
        If Not flag Then
            If Not delRng Is Nothing Then
                Set delRng = Union(delRng, cl)
            Else
                Set delRng = cl
            End If
            flag = False
        End If
    Next
    If Not delRng Is Nothing Then delRng.Delete Shift:=xlShiftUp
    MsgBox "ненужные строки удалены!", 64, "конец"
    End Sub

Sub Макрос2()
    Dim iRange As Range
    Dim iText As Variant
    Dim i As Long
    iText = Array("05056280*","06056280*","01056280*") 'список слов на удаление
    For i = 0 To UBound(iText)
       Set iRange = Range("A:B").Find(What:=iText(i), LookIn:=xlFormulas, Lookat:=xlPart)
        If Not iRange Is Nothing Then
            Do
                iRange.Delete Shift:=xlShiftUp
                Set iRange = Range("A:B").Find(What:=iText(i), _
                    LookIn:=xlFormulas, Lookat:=xlPart)
            Loop Until iRange Is Nothing
        End If
    Next i
    MsgBox "ненужные строки удалены!", 64, "конец"
End Sub

Sub SVS_invoice()

    ActiveWorkbook.SaveAs filename:= _
        "D:\Работа\Invois\Master\2016\Январь\Invoice\MCE_Invoice_01-31-2016_6250.csv", _
        FileFormat:=xlCSV, CreateBackup:=False
End Sub

Sub Ïåðåñ÷åò()
Dim lRws As Long
'
    Columns("H:H").Select
    lRws = Cells(Rows.Count, "G").End(xlUp).Row
    Selection.ClearContents
    Range("A5:G5").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWorkbook.Worksheets("29095134568014").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("29095134568014").Sort.SortFields.Add Key:= _
    Range(Cells(5, "G"), Cells(lRws, "G")), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("29095134568014").Sort
        .SetRange Range(Cells(5, "G"), Cells(lRws, "G"))
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range(lRws, "G").Select
    Selection.End(xlUp).Select
    ActiveWindow.SmallScroll Down:=-18
    Range("H5").Select
    ActiveCell.FormulaR1C1 = _
        "=SUMIF(R[-3]C[-1]:R[2]C[-1],RC[-1],R[-3]C[-6]:R[2]C[-6])"
    Selection.AutoFill Destination:=Range("H5:H12263")
     lRws = Cells(Rows.Count, "H").End(xlUp).Row
    Range(Cells(5, "H"), Cells(lRws, "H")).Select
    Range("H5").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Columns("A:H").Select
    Application.CutCopyMode = False
    Selection.AutoFilter
    Range(lRws, "H").Select
    Selection.End(xlUp).Select
   End Sub

 ActiveWorkbook.Worksheets("29095134568014").Sort.SortFields.Add Key:=Range( _
 "G5:G12263"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers

ActiveWorkbook.Worksheets("29095134568014").Sort.SortFields.Add Key:=Range( _         "G5:G12263"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _         xlSortTextAsNumbers - тут G5 константа а вот G12263 всегда разная так как диапазон меняется 
 .SetRange Range("A5:G12263") -  тут А5 константа а вот G12263 всегда разная так как диапазон меняется 
 Range("G12263").Select -  G12263 всегда разная так как диапазон меняется
Range("H5:H12263").Select - тут H5 константа а вот H12263 всегда разная так как диапазон меняется 
Range("H12263").Select - H12263 всегда разная так как диапазон меняется 

Sub Пересчет()
    Columns("H:H").Select
    Selection.ClearContents
    Range("A5:G5").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWorkbook.Worksheets("29095134568014").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("29095134568014").Sort.SortFields.Add Key:=Range( _
        "G5:G12263"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("29095134568014").Sort
        .SetRange Range("A5:G12263")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("G12263").Select
    Selection.End(xlUp).Select
    ActiveWindow.SmallScroll Down:=-18
    Range("H5").Select
    ActiveCell.FormulaR1C1 = _
        "=SUMIF(R[-3]C[-1]:R[2]C[-1],RC[-1],R[-3]C[-6]:R[2]C[-6])"
    Selection.AutoFill Destination:=Range("H5:H12263")
    Range("H5:H12263").Select
    Range("H5").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Columns("A:H").Select
    Application.CutCopyMode = False
    Selection.AutoFilter
    Range("H12263").Select
    Selection.End(xlUp).Select
   End Sub
 

Option Explicit

Sub SCV_and_Sheets1()
    Dim iBeginRange As Object, lCalc As Long, lCol As Long
    Dim oAwb As String, sCopyAddress As String, sSheetName As String
    Dim lLastrow As Long, lLastRowMyBook As Long, li As Long, iLastColumn As Integer
    Dim wsSh As Object, wsDataSheet As Object, bPolyBooks As Boolean, avFiles
    Dim wbAct As Workbook
    Dim bPasteValues As Boolean
    
    On Error Resume Next
    'Выбираем диапазон выборки с книг
    Set iBeginRange = Range("A1")
    'Application.InputBox("Выберите диапазон сбора данных." & vbCrLf & _
                                           "1. При выборе только одной ячейки данные будут собраны со всех листов начиная с этой ячейки. " & _
                                           vbCrLf & "2. При выделении нескольких ячеек данные будут собраны только с указанного диапазона всех листов.", Type:=8)
    'для указания диапазона без диалогового окна:
    'Set iBeginRange = Range("A1:A10") 'диапазон указывается нужный
    'Если диапазон не выбран - завершаем процедуру
    'If iBeginRange Is Nothing Then Exit Sub
    
    'Указываем имя листа
    'Допустимо указывать в имени листа символы подставки ? и *.
    'Если указать только * то данные будут собираться со всех листов
    'If sSheetName = "" Then sSheetName = "*"sSheetName = InputBox("Введите имя листа, с которого собирать данные(если не указан, то данные собираются со всех листов)", "Параметр")
    'Если имя листа не указано - данные будут собраны со вех листов
    'If sSheetName = "" Then sSheetName = "*"
    
    sSheetName = "*"
    On Error GoTo 0
    'Запрос - вставлять на результирующий лист все данные
    'или только значения ячеек (без формул и форматов)
    bPasteValues = (MsgBox("Вставлять только значения?", vbQuestion + vbYesNo, "Excel-VBA") = vbYes)
    'Запрос сбора данных с книг(если Нет - то сбор идет с активной книги)
    If MsgBox("Собрать данные с нескольких книг?", vbInformation + vbYesNo, "Excel-VBA") = vbYes Then
        avFiles = Application.GetOpenFilename("Excel files(*.csv*),*.csv*", , "Выбор файлов", , True)
        If VarType(avFiles) = vbBoolean Then Exit Sub
        bPolyBooks = True
        lCol = 1
    Else
        avFiles = Array(ThisWorkbook.FullName)
    End If
    'отключаем обновление экрана, автопересчет формул и отслеживание событий
    'для скорости выполнения кода и для избежания ошибок, если в книгах есть иные коды
    With Application
        lCalc = .Calculation
        .ScreenUpdating = False: .EnableEvents = False: .Calculation = xlManual
    End With
    'создаем новый лист в книге для сбора
    Set wsDataSheet = ActiveWorkbook.Sheets.Add(After:=Sheets(Sheets.Count))
    'если нужно сделать сбор данных на новый лист книги с кодом
    'Set wsDataSheet = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    'цикл по книгам
    For li = LBound(avFiles) To UBound(avFiles)
        If bPolyBooks Then
            Set wbAct = Workbooks.Open(filename:=avFiles(li))
        Else
            Set wbAct = ThisWorkbook
        End If
        oAwb = wbAct.Name
        'цикл по листам
        For Each wsSh In wbAct.Sheets
            If wsSh.Name Like sSheetName Then
                'Если имя листа совпадает с именем листа, в который собираем данные
                'и сбор идет только с активной книги - то переходим к следующему листу
                If wsSh.Name = wsDataSheet.Name And bPolyBooks = False Then GoTo NEXT_
                With wsSh
                    Select Case iBeginRange.Count
                    Case 1 'собираем данные начиная с указанной ячейки и до конца данных
                        lLastrow = .Cells(1, 1).SpecialCells(xlLastCell).Row
                        iLastColumn = .Cells.SpecialCells(xlLastCell).Column
                        sCopyAddress = .Range(.Cells(iBeginRange.Row, iBeginRange.Column), .Cells(lLastrow, iLastColumn)).Address
                    Case Else 'собираем данные с фиксированного диапазона
                        sCopyAddress = iBeginRange.Address
                    End Select
                    lLastRowMyBook = wsDataSheet.Cells.SpecialCells(xlLastCell).Row + 1
                    'вставляем имя книги, с которой собраны данные
                    If lCol Then wsDataSheet.Cells(lLastRowMyBook, 1).Resize(Range(sCopyAddress).Rows.Count).Value = oAwb
                    If bPasteValues Then 'если вставляем только значения
                        .Range(sCopyAddress).Copy
                        wsDataSheet.Cells(lLastRowMyBook, 1).Offset(, lCol).PasteSpecial xlPasteValues
                    Else
                        .Range(sCopyAddress).Copy wsDataSheet.Cells(lLastRowMyBook, 1).Offset(, lCol)
                    End If
                End With
            End If
NEXT_:
        Next wsSh
        Application.DisplayAlerts = False
        If bPolyBooks Then wbAct.Close False
    Next li
    With Application
        .ScreenUpdating = True: .EnableEvents = True: .Calculation = lCalc
    End With

 Columns("A:A").Select
    Selection.Delete Shift:=xlToLeft
    Rows("1:1").Select
    Selection.Delete Shift:=xlUp
    Range("A1").Select
End Sub

Sub test()
            Application.ScreenUpdating = False
            Application.Calculation = xlCalculationManual
            Application.EnableEvents = False
            Application.DisplayStatusBar = False
            Application.DisplayAlerts = False
   Sheets("report").Select ' вделить весь лист
   Sheets("report").Cells.ClearContents ' очистить
    ' импорт txt
  
    Dim wbCsv As String: wbCsv = ActiveWorkbook.Path & "\" & Worksheets("Итого").Range("$A$2").Value
    Workbooks.OpenText Filename:=wbCsv, otherchar:=";"
    With ActiveWorkbook
    .ActiveSheet.UsedRange.Copy ThisWorkbook.Sheets("report").[a1].Cells
     .Close (True)
    End With
    ' добавить строку шапки это уже мои докруточки 
    Rows("1:1").Select
    Selection.Insert Shift:=xlDown
    Range("A1").Select
    Sheets("Итого").Select
    Range("A11:A25").Select
    Selection.Copy
    Sheets("report").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Sheets("Итого").Select
    Range("A1").Select
            Application.ScreenUpdating = True
            Application.ScreenUpdating = True
            Application.Calculation = xlCalculationAutomatic
            Application.EnableEvents = True
            Application.DisplayStatusBar = True
            Application.DisplayAlerts = True
    
End Sub