Hi

I am fairly new to producing macros so if this doesn't make sense, I apologise.

What I am trying to do is to produce shipping costs from a calculator that's based in another workbook. The problems that I am having are as follows:
the calculator isn't working unless I manually type in the weight, if I copy and paste from the workbook into the calculator it returns a #n/a result
I can't seem to get the code right to be able to work down a list of titles until I reach an empty cell.

Any advice on either of the above 2 issues would be greatly appreciated as this is keeping me up at night now!!

Thanks in advance

Sub Shipping_Costs()
'
' Shipping_Costs Macro



Dim x As Integer


NumRows = Range("A4", Range("A4").End(xlDown)).Rows.Count
Range("A4").Select

For x = 1 To NumRows
      
     Workbooks.Open Filename:= _
        "W:\Global Shipping\Direct Deliveries\DDR Price calculator.xlsm"
        
    Windows("Copy of DDR WIP 2012.xlsm").Activate
    Range("P4").Select
    Selection.Copy
    Windows("DDR Price calculator.xlsm").Activate
    Range("C3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    Windows("Copy of DDR WIP 2012.xlsm").Activate
    Range("S4").Select
    Selection.Copy
    Windows("DDR Price calculator.xlsm").Activate
    Range("C5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    Windows("Copy of DDR WIP 2012.xlsm").Activate
    Range("U4").Select
    Selection.Copy
    Windows("DDR Price calculator.xlsm").Activate
    Range("C7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    Range("E3").Select
    
    Selection.Copy
    Windows("Copy of DDR WIP 2012.xlsm").Activate
    Range("Q4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    Windows("DDR Price calculator.xlsm").Activate
    Range("E11").Select
    
    Selection.Copy
    Windows("Copy of DDR WIP 2012.xlsm").Activate
    Range("V4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    Windows("DDR Price calculator.xlsm").Activate
    ActiveWindow.Close
    ActiveSheet.Range("$B$3:$AX$3297").AutoFilter Field:=19, Criteria1:="="
    
    Range("A4").Select
    

ActiveCell.Offset(1, 0).Select
Next
    
    
End Sub