for each n in Range("A:A")
if  n=326 Then Value = p2.[N19].Value
If n <> 326 THEN EXIT SUB
next n

Option Explicit
Sub Цены()
Dim p1 As Worksheet, p2 As Worksheet
Set p1 = Workbooks("price.xlsm").Worksheets("Профнастил.")
With GetObject("C:\Users\A.Maria\Desktop\TEST\products1.xlsx").Worksheets("Products")
.[Q83].Value = p1.[P18].Value
.[Q88].Value = p1.[P18].Value
Windows(.Parent.Name).Visible = True
.Parent.Close 1
End With
Set p2 = Workbooks("price.xlsm").Worksheets("Металлочерепица RAUNI")
With GetObject("C:\Users\A.Maria\Desktop\TEST\products1.xlsx").Worksheets("Products")
.[Q2].Value = p2.[N19].Value
.[Q7].Value = p2.[N19].Value
Windows(.Parent.Name).Visible = True
.Parent.Close 1
End With
End Sub

for each n in Range("A:A")
if  n=326 Then Value = p2.[N19].Value
If n <> 326 THEN EXIT SUB
next n

Option Explicit
Sub Цены()
Dim p1 As Worksheet, p2 As Worksheet
Set p1 = Workbooks("price.xlsm").Worksheets("Профнастил.")
With GetObject("C:\Users\A.Maria\Desktop\TEST\products1.xlsx").Worksheets("Products")
.[Q83].Value = p1.[P18].Value
.[Q88].Value = p1.[P18].Value
Windows(.Parent.Name).Visible = True
.Parent.Close 1
End With
Set p2 = Workbooks("price.xlsm").Worksheets("Металлочерепица RAUNI")
With GetObject("C:\Users\A.Maria\Desktop\TEST\products1.xlsx").Worksheets("Products")
.[Q2].Value = p2.[N19].Value
.[Q7].Value = p2.[N19].Value
Windows(.Parent.Name).Visible = True
.Parent.Close 1
End With
End Sub

Option Explicit
Sub Цены()
    Dim p1 As Worksheet, p2 As Worksheet
    Set p1 = Workbooks("price.xlsm").Worksheets("Профнастил.")
    With GetObject("C:\Users\R.Danilyuk\Desktop\TEST\products1.xlsx").Worksheets("Products")
        .[Q48].Value = p1.[P25].Value
        .Parent.Close 1
    End With
Set p2 = Workbooks("price22.xlsx").Worksheets("Металлочерепица RAUNI")
    With GetObject("C:\Users\R.Danilyuk\Desktop\TEST\products1.xlsx").Worksheets("Products")
        .[Q2].Value = p2.[N19].Value
        .Parent.Close 1
    End With
End Sub

Option Explicit
Sub ПРАЙС_Кнопка_Щелчок()
Dim p1 As Worksheet, p2 As Worksheet
Set p1 = Workbooks("Прайс1.xlsx").Worksheets("лист1")
With GetObject("C:\Users\A.Maria\Desktop\test\Прайс2.xlsx").Worksheets("лист2")
.[Q3].Value = p1.[N35].Value
.[Q10].Value = p1.[M38].Value
.Parent.Close 1
End With
Set p2 = Workbooks("Прайс2.xlsx").Worksheets("лист2")
With GetObject("C:\Users\A.Maria\Desktop\test\Прайс2.xlsx").Worksheets("лист3")
.[Q5].Value = p2.[N36].Value
.[Q11].Value = p2.[M40].Value
.Parent.Close 1
End With
End Sub

Sub ПРАЙС_Кнопка_Щелчок()
Workbooks("Прайс1.xlsx")
Sheets("лист1").Select  
Range("R35:C14").Select
Range("R38:C13").Select  
Selection.Copy
Workbooks("Прайс2.xlsx")  
Sheets("лист2").Select  
Range("R3:C17").Select
Range("R10:C17").Select   
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  
:=False, Transpose:=False  
End Sub