Mevcut Koda Formül Ekleme

[Bakigemlik]

Merhaba,

Aşağıdaki mevcut koda exceldeki "BOPSNET" sayfasında =BİRLEŞTİR(Q2;O2;AC2) ( A sütununda çalışacak) ve "Gemi Adı" sayfamdaki =EĞER(F3="var";DÜŞEYARA(BİRLEŞTİR($C3;$B3;$E3);BOPSNET!$A:$T;20;0);"") (G sütununda çalışacak)
kodu eklemek için desteğinizi rica ederim,

Saygılarımla,

İyi Çalışmalar,

Sub Makro4()
'
' Makro4 Makro
'

'
    Columns("P:P").Select
    Application.CutCopyMode = False
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("O:O").Select
    Selection.TextToColumns Destination:=Range("O1"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(10, 1)), TrailingMinusNumbers:=True
End Sub