= Table.AddColumn(#"Добавлен индекс", "Остаточный пробег", each try (if [Примечание] = "ремонт" 
then 2500
else if [#"№ Автобуса"]=#"Добавлен индекс"[#"№ Автобуса"]{[Индекс]-1}
     then #"Добавлен индекс"[Остаточный пробег]{[Индекс]-1}-[Расстояние]
     else "неизвестно")
otherwise "null")

Sub test()
Dim LastRow As Long, Rng As Range
     
    With Worksheets("Лист1")
        LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        Set Rng = Union(Range("A1:A" & LastRow), Range("C1:C" & LastRow))
    End With
    Sheets.Add After:=ActiveSheet
    Rng.Copy Range("A1")
End Sub

Sub Макрос1()
    Range("Таблица1[Материал],Таблица1[Стоимость]").Copy
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Paste
End Sub

Sub Макрос1()

    Range("Таблица1[[#All],[Материал]]").Select
    Selection.Copy
    Sheets.Add After:=ActiveSheet
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub