create a loop for copy and pasting ranges to outlook email

hello

i have a code that works but i currently refeence the tab names. is there a way to create a loop so the code will copy and paste all data in every tab except Sheet1? so something like:

loop for all sheets except sheet 1 and this inside the loop

        X = doc.Range.End - 1
        doc.Range(X) = vCrLf & s1
        X = doc.Range.End - 1
        r1.Copy
        doc.Range(X).Paste
        X = doc.Range.End - 1

and for it to add 1 to r for every iteration so first loop is r1, second loop is r2 etc

TIA and any help is appreciated
i attached the sheet w the working code now for referencereturns.xlsm