This is the code I ended up with using the suggestions above and it does what I intended for it to do:
Private Sub CommandButton2_Click()
Dim r1, r2, r3, r4, r5, r6, r7, r8, r9, r10, r11, r12, r13 As Range
Dim rr1, rr2, rr3, rr4, rr5, rr6, rr7, rr8, rr9, rr10, rr11, rr12, rr13 As...