connecting macros

JBeaucaire help me with the following code. It works great, I have 14 ranges like this on the same spreadsheet and would like to print all of them based on the result in the target cells for the range of each to print.

I currently have a macro button to print each range as you can see. Is it possible to connect these? What I have tried is cutting the End Sub and then the Dim r As Long but get errors.

Sub PrintVariedNumber_Products_1and2()
Dim r As Long
r = 43 + (Range("E7") * 44) - 44

    Range("A1:M" & r).PrintOut copies:=1
        

End Sub
Sub PrintVariedRange_Products_3and4()
Dim r As Long
r = 43 + (Range("S7") * 44) - 44

    Range("O1:AA" & r).PrintOut copies:=1
    
    
    
End Sub

Sub PrintVariedRange_Products_5and6()
Dim r As Long
r = 43 + (Range("AG7") * 44) - 44

    Range("AC1:AO" & r).PrintOut copies:=1
    
    
    
End Sub
Sub PrintVariedRange_Products_7and8()
Dim r As Long
r = 43 + (Range("AU7") * 44) - 44

    Range("AQ1:BC" & r).PrintOut copies:=1
    
    
    
End Sub
Sub PrintVariedRange_Products_9and10()
Dim r As Long
r = 43 + (Range("BI7") * 44) - 44

    Range("BE1:BQ" & r).PrintOut copies:=1
    
    
    
End Sub
Sub PrintVariedRange_Products_11and12()
Dim r As Long
r = 43 + (Range("BW7") * 44) - 44

    Range("BS1:CE" & r).PrintOut copies:=1
    
    
    
End Sub
Sub PrintVariedRange_Products_13and14()
Dim r As Long
r = 43 + (Range("CK7") * 44) - 44

    Range("CG1:CS" & r).PrintOut copies:=1
    
    
    
End Sub
Sub PrintVariedRange_Products_15and16()
Dim r As Long
r = 43 + (Range("CY7") * 44) - 44

    Range("CU1:DG" & r).PrintOut copies:=1
    
    
    
End Sub

Hi again Ed. Be sure to read through the Forum Rules so you can use and follow them effectively. For instance, you'll need to edit that post above and put code tags around that code you used. (Like I did below...)

Sub AllProducts()
Dim r As Long
r = 43 + (Range("E7") * 44) - 44
Range("A1:M" & r).PrintOut copies:=1

r = 43 + (Range("S7") * 44) - 44
Range("O1:AA" & r).PrintOut copies:=1

r = 43 + (Range("AG7") * 44) - 44
Range("AC1:AO" & r).PrintOut copies:=1

r = 43 + (Range("AU7") * 44) - 44
Range("AQ1:BC" & r).PrintOut copies:=1

r = 43 + (Range("BI7") * 44) - 44
Range("BE1:BQ" & r).PrintOut copies:=1

r = 43 + (Range("BW7") * 44) - 44
Range("BS1:CE" & r).PrintOut copies:=1

r = 43 + (Range("CK7") * 44) - 44
Range("CG1:CS" & r).PrintOut copies:=1

r = 43 + (Range("CY7") * 44) - 44
Range("CU1:DG" & r).PrintOut copies:=1

End Sub

You're saying some of the cells might be blank that are supposed to determine how many rows to copy? You'll have to build that test into each section then:

Sub AllProducts()
Dim r As Long

If Range("E7") > 0 Then
   r = 43 + (Range("E7") * 44) - 44
   Range("A1:M" & r).PrintOut copies:=1
End If

etc...

Thanks JB it works great!!!

Put another in the Solved Column