Sub копирование_Названия_в_технику_1_ранг()
'
' для случая смещения техники в столбец L
' копирование формулы Названия в телефон и технику и замена на правильные столбцы в формулах
' Сочетание клавиш: Ctrl+й
'
    Selection.Copy
    
    ActiveCell.Range("f1").Select    ' для случая смещения техники в столбец L
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Selection.Replace What:="a", Replacement:="t", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    With Selection.Font
        .Color = -65536
        .TintAndShade = 0
    End With
    
    Application.CutCopyMode = False


End Sub
Sub копирование_Названия_в_технику_2_ранг()
'
' для случая смещения техники в столбец N
' копирование формулы Названия в телефон и технику и замена на правильные столбцы в формулах
' Сочетание клавиш: Ctrl+ц
'
    Selection.Copy
    
    ActiveCell.Range("h1").Select    ' для случая смещения техники в столбец N
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Selection.Replace What:="a", Replacement:="t", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    With Selection.Font
        .Color = -65536
        .TintAndShade = 0
    End With
    
    Application.CutCopyMode = False
End Sub

начало цикла 
ActiveCell.Range("G i").Select    
при этом проверяем:
Если значение в ячейке G i содержит *ФПС* то следующая строка G i+1, т.е. шаг цикла
Если значение в ячейке H i <>"1" то следующая строка G i+1, т.е. шаг цикла
Если ячейка L i <> "" тогда применять 1-ый Sub иначе 2-ой Sub т.е. в зависимости от того где уже содержиться техника, которую меняем на ссылку (т.е. смещение на 5 или 7 столбцов). 

меняем номер строки i=i+1, т.е. шаг цикла и повторяем процедуру... и так пока не достигнем i=k