Integration of 2 or more macros

MRVMV's solution could work with selecting the cells and you could set the macro to select the correct one by default, but I think it would be easier to just pass the cur_row variable to the new macro.

To do this edit this line of the first macro:

Application.Run "'Pricing Calcs V4.xlsm'!price_calc"

Change it to this:

Application.Run "'Pricing Calcs V4.xlsm'!price_calc", cur_row

Then, change this line in the second macro:

Sub price_calc()

to this:

Sub price_calc(cur_row)

Then change this line in the second macro:

Selection.Value = unit_price

to this:

Cells(cur_row, 6).Value = unit_price

Update

Also change all instances of this:

Selection.Row

to this:

cur_row

This should appear after blind_type, fab_width, and fab_height.

Then, remove this line:

ActiveCell.Offset(1).Select

That should do it.

Here is the link to the microsoft page that explains passing a variable to another macro in a bit more detail. It can be a confusing tutorial though so I will make one here on teachexcel later this week.

Final Macros:

Sub test()

first_row = 2
last_row = Range("A" & Rows.Count).End(xlUp).Row

For cur_row = first_row To last_row

    a_len = Len(Cells(cur_row, 1).Value)
    b_len = Len(Cells(cur_row, 2).Value)
    c_len = Len(Cells(cur_row, 3).Value)
    e_len = Len(Cells(cur_row, 5).Value)

    If a_len > 0 And b_len > 0 And c_len > 0 And e_len > 0 Then

        'code to run goes here
        Application.Run "'Pricing Calcs V4.xlsm'!price_calc", cur_row

    End If

Next cur_row

End Sub

Sub price_calc(cur_row)

On Error GoTo EndMacro
Dim Wb1 As Workbook
Application.ScreenUpdating = False

blind_type = Cells(cur_row, 1).Value
fab_width = Cells(cur_row, 3).Value
fab_height = Cells(cur_row, 5).Value

If blind_type = "Chain-Op Roller in Thames or Dart" Then

 ws_name = "R20 Thames-Dart"

ElseIf blind_type = "Chain-Op Roller in Medway or Roe" Then

 ws_name = "R20 Medway-Roe"

ElseIf blind_type = "Crank-Op Roller in Thames or Dart" Then

 ws_name = "R20C Thames-Dart"

ElseIf blind_type = "Crank-Op Roller in  Medway or Roe" Then

 ws_name = "R20C Medway-Roe"

ElseIf blind_type = "127mm Vertical in in Thames or Dart" Then

 ws_name = "VL30 127mm Thames-Dart"

ElseIf blind_type = "89mm Vertical in in Thames or Dart" Then

 ws_name = "VL30 89mm Thames-Dart"

End If


Set Wb1 = Workbooks.Open("N:\11. General\Price Charts.xlsx")


row_location = Application.WorksheetFunction.Match(fab_height, Wb1.Sheets(ws_name).Range("A1:A28")) + 1
col_location = Application.WorksheetFunction.Match(fab_width, Wb1.Sheets(ws_name).Range("A1:S1")) + 1

unit_price = Sheets(ws_name).Cells(row_location, col_location).Value

EndMacro:

Wb1.Close SaveChanges:=False

Cells(cur_row, 6).Value = unit_price

Application.ScreenUpdating = True


End Sub

That's right it's a simple edit in this line in 2nd macro

Selection.Value = unit_price

You should change it to

Cells(Selection.Row,6).Value = unit_price

So the code will be like that (BOLD is the edit)

Sub price_calc()
On Error GoTo EndMacro
Dim Wb1 As Workbook
Application.ScreenUpdating = False
blind_type = Cells(Selection.Row, 1).Value
fab_width = Cells(Selection.Row, 3).Value
fab_height = Cells(Selection.Row, 5).Value
If blind_type = "Chain-Op Roller in Thames or Dart" Then
 ws_name = "R20 Thames-Dart"
ElseIf blind_type = "Chain-Op Roller in Medway or Roe" Then
  
 ws_name = "R20 Medway-Roe"
ElseIf blind_type = "Crank-Op Roller in Thames or Dart" Then
  
 ws_name = "R20C Thames-Dart"
ElseIf blind_type = "Crank-Op Roller in  Medway or Roe" Then
  
 ws_name = "R20C Medway-Roe"
ElseIf blind_type = "127mm Vertical in in Thames or Dart" Then
  
 ws_name = "VL30 127mm Thames-Dart"
ElseIf blind_type = "89mm Vertical in in Thames or Dart" Then
  
 ws_name = "VL30 89mm Thames-Dart"
End If
Set Wb1 = Workbooks.Open("N:\11. General\Price Charts.xlsx")
row_location = Application.WorksheetFunction.Match(fab_height, Wb1.Sheets(ws_name).Range("A1:A28")) + 1
col_location = Application.WorksheetFunction.Match(fab_width, Wb1.Sheets(ws_name).Range("A1:S1")) + 1
unit_price = Sheets(ws_name).Cells(row_location, col_location).Value
EndMacro:
Wb1.Close SaveChanges:=False
Cells(Selection.Row, 6).Value = unit_price
Application.ScreenUpdating = True
ActiveCell.Offset(1).Select
End sub

NOTE: Selection mean the selected cell and we use Cells to reference specific cell by its row and column number so Selection.Row give us the row of the selected cell and 6 number indicate the column F (by its number).