k = Cells(i, FactValue).Value
Cells(i, FactValue).Formula = "=(" & k & "/1.2)/курс"

=ЗНАЧЕН(ЛЕВСИМВ(A2;НАЙТИ(" ";A2)-1))

    With Worksheets("Справочник")
        Kniga = .Cells(2, 52).Text
        GetObject (Kniga)
    End With

    With Worksheets("Справочник")
       FileToClose = .Cells(2, 52).Text
       Workbooks(FileToClose).Close
    End With

    With Worksheets("Лист1")
        NachaloKopirovaniya = .Range("a2:DD2").Find("начало").Column 'начало копирования
        KonetcKopirovaniya = .Range("a2:DD2").Find("конец").Column' конец копирования
        lLastRow = .UsedRange.Row + .UsedRange.Rows.Count - 1'последняя ячейка
        Range(Cells(2, NachaloKopirovaniya), Cells(lLastRow, KonetcKopirovaniya)).Offset(0, 9) = Range(Cells(2, NachaloKopirovaniya), Cells(lLastRow, KonetcKopirovaniya)).Value 'приравниваем значения
    End With

Price= Range("A7:DD8").Find("Цена", SearchOrder:=xlRows).Column

currentPrice = Split(Cells(1, Price).Address(True, False), "$")(0)

For i = 1 To 5
        On Error Resume Next
        If Cells(i, previousPrice).Value = "new" Then    'в каком столбике ищем обозначение новой строки
            Cells(i, previousCost).Formula = "=bf" & i    'вот как тут использовать найденные буквы?
        End If
    Next i

With Workbooks(WBName).Worksheets(WBList)   
        vVALs = .Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp)).Value2  
        For v = LBound(vVALs, 1) To UBound(vVALs, 1)   
            dict.Item((vVALs(v, 1))) = vVALs(v, 1)
        Next v
    End With

Sub Master()
Call 1
Call 2
Call 3
Call 4
End Sub